Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  404 1580 (N14E59 L=278)   714    171        3 ( 367/1535- 429/1613) -26.6 E63-E55 N11-N16
      2  251 1461 (N04E71 L=266)   817    118        2 ( 217/1432- 283/1494)  29.7 E75-E67 N02-N06
      3  195 1176 (S13E63 L=274)   433     67        1 ( 181/1149- 211/1212) -76.0 E64-E60 S15-S11
      4 1706 1120 (N20W41 L= 18)   304    102        0 (1689/1067-1723/1173) -51.3 W39-W43 N17-N22
      5 1915 1003 (N20W65 L= 42)   842    246        0 (1877/ 991-1953/1020)  15.3 W60-W71 N17-N21
      6  189  912 (S29E58 L=279)   495     81        1 ( 174/ 880- 214/ 937)  90.0 E59-E54 S31-S27
      7  663  923 (S18E19 L=318)   266    134        1 ( 607/ 907- 738/ 936)  12.5 E22-E13 S19-S16
      8  502  897 (S23E29 L=308)   315     94        1 ( 461/ 865- 540/ 921)  -9.5 E32-E26 S24-S22
      9 1792  780 (N03W59 L= 36)   832    184        0 (1751/ 693-1837/ 860)  78.7 W56-W61 S02-N08
     10 1589  567 (S14W50 L= 27)   674    226        0 (1487/ 526-1672/ 615)  39.3 W43-W54 S18-S09
     11 1692  503 (S15W63 L= 40)  1082    203        2 (1637/ 466-1732/ 543)  63.4 W56-W67 S17-S11
     12 1120  387 (S39W27 L=  4)   826    265        1 (1091/ 314-1158/ 485) -37.6 W21-W34 S43-S32
     13 1453  411 (S27W48 L= 25)   328     69        0 (1420/ 392-1492/ 429)  36.9 W46-W50 S28-S24
     14 1284  315 (S38W43 L= 20)   980    126        2 (1232/ 289-1333/ 347)  14.0 W38-W47 S40-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