Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1501 1629 (N31W43 L=203)   318    107        0 (1483/1588-1524/1659)  33.7 W40-W46 N28-N33
      2 1221 1603 (N33W22 L=181)   255     76        2 (1203/1566-1237/1631)  53.1 W19-W23 N30-N35
      3 1712 1398 (N14W52 L=212)   722    185        1 (1680/1334-1760/1440)  35.5 W49-W58 N10-N16
      4  215 1421 (N34E59 L=101)   573    116        0 ( 187/1408- 246/1433)  -8.1 E62-E55 N32-N35
      5  212 1241 (N22E56 L=103)   433     66        1 ( 195/1205- 235/1269)  53.1 E57-E53 N19-N23
      6  159 1123 (N15E62 L= 97)  3966    565       11 (  78/1013- 237/1241)  52.4 E76-E53 N09-N22
      7  382 1224 (N19E40 L=119)   296     53        1 ( 352/1202- 409/1241) -26.6 E42-E38 N17-N20
      8  460 1090 (N10E35 L=125)   473    128        0 ( 415/1039- 506/1137) -45.0 E37-E31 N06-N12
      9  631  989 (N02E24 L=135)   563    125        2 ( 596/ 925- 657/1051)  50.2 E27-E22 S01-N05
     10  459  676 (S15E41 L=118)   292     62        0 ( 434/ 646- 479/ 711) -76.0 E42-E40 S16-S12
     11 1073  640 (S24E02 L=158)   416    137        0 ( 996/ 619-1140/ 665)  -7.1 E06-W02 S25-S23
     12 1544  522 (S38W33 L=192)   353     98        2 (1522/ 480-1564/ 560) -63.4 W30-W35 S41-S35
     13  960  396 (S40E14 L=145)   840    181        3 ( 894/ 349-1026/ 460)  26.6 E19-E07 S42-S35
  

    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