Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1515 1638 (N44W44 L=131)  2319    339        6 (1449/1569-1561/1712)  30.5 W35-W52 N38-N49
      2 1069 1501 (N34W03 L= 90)   567    148        0 (1047/1435-1091/1562) -90.0 W01-W04 N29-N38
      3 1673 1319 (N21W47 L=134)   484    131        0 (1619/1277-1714/1347) -20.6 W42-W50 N18-N22
      4  717 1298 (N20E21 L= 66)   220     70        0 ( 703/1256- 728/1331) -78.7 E21-E19 N17-N22
      5 1045 1179 (N13W01 L= 88)   384    185        0 (1026/1101-1070/1275)  79.7 W00-W02 N08-N19
      6 1668 1232 (N15W45 L=132)   846    188        1 (1609/1190-1736/1263)   9.5 W39-W51 N12-N17
      7 1263 1187 (N13W15 L=102)   589    144        1 (1219/1120-1292/1260) -66.0 W12-W17 N09-N18
      8 1701 1109 (N08W47 L=134)   979    253        2 (1617/1079-1787/1163) -14.9 W40-W55 N05-N11
      9  648  982 (N01E24 L= 63)   410    114        0 ( 593/ 956- 707/1016)  14.0 E27-E19 N00-N02
     10 1747  785 (S13W52 L=139)   843    169        1 (1730/ 704-1763/ 867) -84.3 W50-W53 S17-S07
     11  270  809 (S11E55 L= 32)   377     93        2 ( 243/ 786- 302/ 830)   0.0 E58-E51 S12-S09
     12 1688  619 (S24W49 L=137)   709     95        1 (1647/ 576-1724/ 664)  56.3 W46-W52 S26-S20
     13  621  587 (S25E28 L= 59)   448    122        0 ( 564/ 568- 675/ 610)  12.5 E32-E23 S26-S23
     14 1190  369 (S41W13 L=101)  1516    300        3 (1124/ 299-1276/ 458)  52.4 W08-W19 S47-S33
     15  849  363 (S42E14 L= 73)   523     71        1 ( 821/ 340- 886/ 399) -21.8 E17-E11 S43-S38
  

    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