Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  726 1832 (N35E55 L=262)  1751    186        2 ( 685/1755- 756/1895) -24.6 E70-E46 N29-N41
      2 1659 1537 (N47W32 L=348)   783     91        1 (1628/1486-1686/1575) -63.4 W28-W35 N43-N50
      3  943 1501 (N19E19 L=298)   335    122        1 ( 902/1450- 982/1546)  90.0 E19-E17 N14-N22
      4 1096 1415 (N18E07 L=309)   310    134        0 (1062/1356-1124/1481) -40.6 E11-E03 N15-N21
      5 1698 1276 (N29W36 L=353)   328     47        0 (1685/1244-1713/1310)  78.7 W35-W37 N27-N32
      6  757 1265 (N00E22 L=295)   331    119        1 ( 703/1242- 814/1286)   0.0 E25-E17 N00-N01
      7 1585 1041 (N12W32 L=349)   389     98        0 (1550/1000-1622/1078)  56.3 W30-W34 N08-N14
      8  781 1000 (S14E13 L=304)   441    164        0 ( 719/ 964- 855/1023)  40.6 E15-E08 S17-S11
      9 1856  927 (N15W60 L= 17)  1063    189        1 (1810/ 861-1907/1016) -16.4 W52-W69 N13-N18
     10  683  837 (S26E15 L=302)   301     55        1 ( 660/ 804- 709/ 873) -45.0 E17-E12 S26-S23
     11  382  780 (S37E38 L=279)   668    132        0 ( 328/ 739- 436/ 807)  30.3 E44-E32 S41-S34
     12 1775  777 (N04W56 L= 13)   426     53        1 (1752/ 748-1802/ 800)  63.4 W53-W58 N02-N06
     13 1686  742 (S01W50 L=  6)   710     75        2 (1652/ 711-1728/ 781)   7.1 W46-W54 S02-N00
     14  808  627 (S34E01 L=316)   841    179        1 ( 718/ 610- 900/ 650)  24.4 E07-W04 S37-S31
     15 1405  342 (S31W54 L= 10)  2283    338        4 (1252/ 288-1542/ 386)  49.1 W44-W63 S39-S24
  

    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