Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1623 1096 (N09W35 L= 12)   551    175        0 (1598/1012-1636/1184) -68.2 W32-W36 N04-N14
      2  400 1121 (S11E41 L=296)   521     71        3 ( 379/1066- 425/1173) -80.5 E43-E39 S13-S07
      3 1254 1110 (N02W12 L=349)   182     53        1 (1229/1086-1278/1136) -33.7 W10-W13 N01-N03
      4  303 1067 (S15E49 L=288)  1145    285        2 ( 200/1024- 373/1117)  -3.4 E59-E42 S17-S11
      5  127  919 (S25E66 L=271)  1636    270        1 (  95/ 834- 159/ 987)  71.6 E69-E61 S29-S20
      6 1784  919 (N03W52 L= 29)   747    115        1 (1757/ 857-1808/ 969) -39.8 W50-W56 N00-N06
      7 1331  723 (S18W25 L=  2)   478    150        0 (1253/ 696-1392/ 770)  40.6 W20-W27 S20-S14
      8 1637  709 (S12W46 L= 23)   605    187        2 (1553/ 674-1690/ 728)   9.5 W39-W51 S13-S10
      9 1732  682 (S11W55 L= 32)   339     58        2 (1711/ 653-1755/ 708) -56.3 W53-W57 S12-S09
     10  483  647 (S39E32 L=305)   298     88        0 ( 455/ 610- 510/ 688)  56.3 E34-E29 S41-S35
     11 1690  597 (S17W55 L= 32)   629    172        2 (1661/ 549-1729/ 664) -35.5 W49-W59 S18-S13
     12 1273  605 (S26W25 L=  2)   287     76        0 (1230/ 584-1326/ 628)  38.7 W22-W27 S28-S23
     13  389  586 (S44E42 L=295)   429     97        0 ( 355/ 564- 425/ 606)   8.1 E45-E38 S46-S42
     14 1498  465 (S29W46 L= 23)  4038    723       10 (1261/ 428-1724/ 525)  17.5 W29-W67 S35-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