Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1693 1538 (N29W64 L=196)  1997    188        2 (1646/1457-1740/1611)  65.6 W60-W73 N22-N33
      2 1382 1551 (N35W34 L=166)   586     77        3 (1357/1507-1406/1588)  39.8 W31-W37 N31-N37
      3 1021 1390 (N28W04 L=135)   468    132        0 ( 992/1332-1062/1448) -76.0 W01-W05 N24-N32
      4  573 1309 (N27E29 L=103)  2427    516        1 ( 432/1184- 790/1367)   8.7 E39-E13 N19-N30
      5 1500 1272 (N15W34 L=166)   990    266        4 (1434/1195-1564/1344) -73.3 W29-W38 N10-N20
      6  217 1261 (N25E65 L= 67)   484     43        2 ( 202/1232- 235/1285)  90.0 E67-E62 N22-N26
      7  242 1200 (N21E59 L= 72)  1113    138        2 ( 216/1140- 271/1259)  90.0 E62-E56 N17-N24
      8  604 1092 (N13E27 L=105)   617    151        2 ( 534/1051- 657/1138) -40.6 E31-E22 N10-N16
      9 1753  857 (S14W50 L=182)   546     37        2 (1727/ 833-1778/ 882)   0.0 W47-W52 S15-S12
     10  416  746 (S08E44 L= 87)   405     79        0 ( 398/ 704- 439/ 775)  51.3 E45-E41 S10-S05
     11 1285  504 (S31W13 L=145)   409    113        1 (1224/ 491-1334/ 518)  -7.1 W08-W16 S32-S29
     12  601  393 (S33E41 L= 91)   748    142        0 ( 569/ 338- 646/ 460)  84.3 E42-E39 S37-S27
     13 1019  429 (S34E07 L=125)   440    149        0 ( 946/ 414-1087/ 442) -16.7 E12-E02 S35-S32
     14 1053  197 (S57E11 L=121)   657     96        0 (1005/ 185-1111/ 209)   0.0 E15-E04 S58-S54
  

    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