Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1224 1369 (N17W03 L= 48)   219     88        2 (1196/1332-1245/1405) -36.9 W00-W04 N15-N19
      2  329 1178 (S13E48 L=357)  1323    258        4 ( 277/1078- 396/1237)  63.4 E53-E43 S19-S09
      3 1817 1046 (N16W51 L= 96)   767    157        3 (1787/ 971-1844/1123) -45.0 W47-W55 N12-N20
      4  691 1022 (S15E19 L= 26)   569    217        1 ( 636/ 925- 745/1118) -45.0 E24-E14 S19-S10
      5 1384  949 (S02W22 L= 68)   996    230        1 (1291/ 898-1486/1027)   0.0 W14-W29 S04-N00
      6 1879  987 (N15W59 L=104)   579    146        2 (1849/ 963-1904/1020)  68.2 W55-W61 N13-N18
      7  880  881 (S19E05 L= 41)   180     34        0 ( 868/ 852- 891/ 907) -56.3 E05-E03 S20-S17
      8 1790  818 (N03W55 L=101)   942    147        1 (1762/ 743-1820/ 887) -60.3 W52-W59 S01-N07
      9  424  829 (S32E35 L= 11)  1107    325        0 ( 295/ 801- 545/ 856)  10.8 E46-E25 S35-S29
     10 1199  702 (S21W19 L= 64)   251     92        0 (1147/ 686-1250/ 715)  26.6 W16-W22 S22-S19
     11 1455  656 (S16W36 L= 81)   567    208        0 (1360/ 631-1550/ 694)  28.6 W29-W40 S18-S11
     12 1726  580 (S11W60 L=106)   498     52        0 (1701/ 550-1752/ 609)  78.7 W58-W62 S13-S08
     13 1664  569 (S14W55 L=101)   344     47        1 (1638/ 548-1686/ 597)  90.0 W53-W57 S15-S12
     14 1161  543 (S31W23 L= 68)   595    125        0 (1090/ 519-1234/ 569)  36.9 W18-W26 S33-S27
     15 1678  500 (S17W60 L=106)  2520    422        6 (1586/ 450-1771/ 560)  47.5 W54-W69 S22-S10
  

    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