Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1509 1733 (N32W61 L=357)  1695    340        7 (1436/1642-1630/1778) -31.0 W51-W75 N26-N36
      2  506 1666 (N58E30 L=266)  1064    179        3 ( 428/1618- 573/1715)   8.5 E41-E21 N54-N61
      3 1453 1575 (N24W44 L=340)   985    238        8 (1368/1522-1565/1618)  -3.0 W34-W53 N21-N26
      4 1144 1553 (N31W22 L=318)   315    131        3 (1117/1487-1167/1599)  40.6 W17-W24 N27-N33
      5 1189 1502 (N27W23 L=319)   540    227        7 (1106/1460-1283/1542)  -4.4 W16-W29 N25-N28
      6 1191 1405 (N21W19 L=315)   648    199        3 (1117/1365-1280/1429) -21.8 W14-W24 N17-N23
      7 1013 1182 (N12W03 L=299)   486    151        3 ( 985/1122-1032/1266)  63.4 W00-W05 N09-N17
      8  160  997 (N19E65 L=231)   451     57        2 ( 124/ 982- 192/1013)  -5.7 E70-E60 N17-N19
      9 1536  949 (S13W29 L=325)   213     67        0 (1525/ 909-1545/ 986)  78.7 W27-W30 S15-S10
     10 1726  579 (S42W44 L=340)   930    153        2 (1659/ 534-1772/ 630)  14.0 W36-W50 S44-S39
     11  400  585 (S09E52 L=244)   304     52        0 ( 384/ 554- 419/ 609)  31.0 E54-E49 S10-S07
     12  900  376 (S33E26 L=270)  1431    449        1 ( 746/ 283-1053/ 527)  14.9 E40-E10 S37-S26
     13  833  454 (S26E27 L=269)   456    175        1 ( 776/ 422- 886/ 484) -15.9 E29-E22 S28-S23
     14 1337  193 (S65E02 L=295)   538     75        0 (1313/ 173-1373/ 216)  -8.1 E05-W03 S68-S61
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y