Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1043 1579 (N36W18 L=134)   221     41        0 (1020/1564-1073/1592)   0.0 W16-W20 N34-N36
      2  893 1541 (N38W07 L=123)   220     39        0 ( 865/1514- 915/1564)  26.6 W04-W08 N36-N38
      3 1450 1269 (N07W31 L=147)   270     79        0 (1427/1232-1483/1296)  21.8 W28-W33 N04-N07
      4 1622 1157 (S04W39 L=155)  1070    277        3 (1521/1067-1721/1262) -57.3 W34-W44 S11-N03
      5  692 1193 (N22E15 L=101)   336    104        0 ( 660/1142- 732/1239)  33.7 E18-E11 N19-N23
      6  180  957 (N19E60 L= 56)  1691    434        5 (  84/ 880- 287/1024) -32.3 E70-E51 N12-N24
      7  572  975 (N12E28 L= 89)   388    145        0 ( 496/ 947- 636/1001)  -5.2 E33-E22 N11-N12
      8 1389  918 (S11W18 L=134)   455    135        1 (1366/ 848-1408/ 990)  69.4 W16-W20 S14-S06
      9 1585  784 (S24W28 L=144)   471    131        0 (1561/ 711-1611/ 845)  49.4 W25-W31 S28-S21
     10 1745  724 (S33W41 L=157)   877    294        2 (1631/ 650-1845/ 815)   8.1 W30-W51 S35-S30
     11 1025  717 (S13E08 L=109)   201     71        0 ( 987/ 694-1065/ 733)   0.0 E10-E04 S13-S12
     12 1477  619 (S31W18 L=134)   229     26        0 (1459/ 602-1499/ 637)   0.0 W16-W19 S32-S29
     13 1217  510 (S31E02 L=114)   362     58        1 (1199/ 476-1238/ 544)  63.4 E04-W00 S32-S28
     14  781  431 (S24E32 L= 85)   332    125        0 ( 766/ 381- 797/ 484)  54.5 E34-E29 S27-S20
  

    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