Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  753 1645 (N32E34 L=197)   832    172        0 ( 687/1594- 798/1676)  14.0 E38-E29 N28-N34
      2 1112 1512 (N30E05 L=226)  1335    295        2 (1024/1399-1214/1596) -31.0 E12-W04 N24-N34
      3  980 1268 (N12E07 L=224)   632    238        0 ( 875/1232-1090/1304)   4.1 E14-W00 N11-N13
      4 1638 1104 (N15W38 L=269)   566     92        2 (1618/1069-1670/1147)  78.7 W36-W41 N13-N18
      5  219 1084 (S12E59 L=172)   523     56        1 ( 200/1058- 249/1111) -31.0 E61-E55 S14-S10
      6  192 1032 (S16E62 L=169)   477     32        1 ( 172/1013- 211/1057)  36.9 E65-E59 S17-S14
      7 1658  923 (N05W43 L=274)   473    128        1 (1630/ 854-1697/ 958)  66.8 W41-W45 N00-N07
      8  141  931 (S23E71 L=160)   876     62        1 ( 107/ 910- 174/ 951)   9.5 E82-E64 S24-S21
      9  927  776 (S18E01 L=230)   302     68        0 ( 900/ 755- 960/ 801)  18.4 E03-W00 S19-S16
     10 1052  749 (S17W07 L=238)   207     16        1 (1028/ 730-1071/ 764)   0.0 W05-W08 S18-S15
     11 1462  707 (S11W34 L=265)   788    162        1 (1382/ 675-1526/ 742)  33.7 W29-W38 S14-S08
     12  787  638 (S29E08 L=223)   276    155        0 ( 722/ 605- 859/ 656)  33.7 E11-E02 S32-S26
     13 1496  586 (S18W41 L=272)   565    174        2 (1419/ 552-1555/ 634)  41.2 W36-W45 S21-S14
     14  747  325 (S55E05 L=226)   446     98        0 ( 707/ 313- 800/ 347)   6.3 E09-W00 S56-S52
  

    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