Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  628 1829 (N32E65 L=265)  1114    107        1 ( 598/1781- 655/1879) -31.0 E76-E59 N28-N37
      2  945 1702 (N32E28 L=301)  1101    205        1 ( 865/1654-1028/1732)  41.2 E31-E22 N26-N35
      3  794 1594 (N20E32 L=298)   431     82        0 ( 759/1549- 824/1636) -81.9 E33-E30 N16-N23
      4 1525 1550 (N42W17 L=347)   444     51        0 (1491/1531-1552/1572)  45.0 W14-W19 N39-N44
      5  587 1342 (N00E34 L=295)   392    111        0 ( 531/1327- 647/1357)  14.0 E38-E30 S01-N02
      6 1449 1151 (N13W21 L=350)   257     77        0 (1416/1130-1485/1173)  45.0 W18-W22 N11-N15
      7  312 1105 (S19E49 L=280)   362     27        0 ( 292/1082- 333/1128) -26.6 E51-E46 S20-S18
      8  636 1085 (S13E24 L=305)   512    149        0 ( 575/1044- 704/1111)   6.3 E27-E18 S15-S11
      9 1749 1007 (N15W46 L= 15)  1146    261        2 (1691/ 910-1821/1098) -21.8 W38-W55 N12-N19
     10 1282 1037 (N02W14 L=343)   524    120        1 (1251/ 991-1327/1085)  80.5 W11-W15 S01-N05
     11  277  849 (S36E50 L=279)   442     63        0 ( 244/ 830- 320/ 863)  11.3 E54-E44 S37-S33
     12 1170  780 (S15W15 L=345)   285     97        0 (1129/ 759-1219/ 799)  51.3 W13-W17 S17-S12
     13  635  705 (S35E15 L=314)   716    186        1 ( 559/ 686- 729/ 734)  13.0 E21-E08 S37-S31
     14  428  663 (S44E33 L=297)   641    100        1 ( 387/ 641- 481/ 697)   5.7 E37-E27 S45-S41
     15 1411  434 (S26W46 L= 16)  2455    412        2 (1225/ 386-1602/ 494)  37.7 W34-W57 S34-S16
  

    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