Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1165 1874 (N54E28 L= 42)   463     34        0 (1148/1850-1188/1891) -63.4 E30-E24 N51-N57
      2  656 1786 (N29E54 L= 15)   553     48        1 ( 629/1761- 685/1810)  -6.3 E58-E49 N27-N30
      3  590 1675 (N20E50 L= 19)   794    101        2 ( 567/1633- 622/1727) -26.6 E55-E45 N17-N22
      4 1679 1554 (N49W34 L=103)   429     77        0 (1652/1516-1698/1574) -21.8 W30-W36 N46-N50
      5 1259 1355 (N18W04 L= 73)   233    110        1 (1219/1340-1310/1380)  31.0 W01-W06 N16-N20
      6 1257 1208 (N10W08 L= 77)   225     72        1 (1239/1164-1272/1237) -63.4 W06-W09 N07-N11
      7 1632 1112 (N16W34 L=103)   261     63        0 (1620/1077-1648/1151) -63.4 W32-W35 N14-N18
      8  188 1107 (S22E63 L=  6)   687     64        0 ( 165/1074- 211/1139)  53.1 E66-E60 S23-S19
      9  221 1036 (S26E58 L= 12)  1600    198        5 ( 176/ 950- 259/1122)  70.0 E63-E53 S31-S20
     10  421 1014 (S23E38 L= 32)   686    175        0 ( 335/ 988- 499/1047)  26.6 E44-E32 S25-S18
     11  760 1016 (S14E15 L= 55)   236    108        0 ( 708/ 988- 806/1033)  38.7 E17-E11 S16-S12
     12 1099  978 (S07W05 L= 75)   304     62        1 (1081/ 942-1127/1007) -76.0 W03-W06 S09-S05
     13 1548  579 (S14W47 L=116)   430     83        0 (1510/ 550-1581/ 618)  78.7 W44-W48 S16-S11
     14  615  371 (S61E09 L= 60)   319     64        0 ( 599/ 349- 642/ 402) -63.4 E10-E05 S62-S58
  

    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