Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  746 1737 (N42E27 L=222)   352     97        1 ( 723/1697- 767/1777) -81.9 E28-E25 N38-N45
      2  701 1573 (N29E25 L=224)   260     70        0 ( 684/1532- 720/1601)  90.0 E26-E23 N26-N31
      3 1781 1462 (N29W56 L=305)  1577    268        2 (1710/1378-1863/1523) -31.6 W49-W63 N23-N32
      4  572 1485 (N23E33 L=216)   763    136        2 ( 510/1461- 636/1514) -11.3 E37-E27 N21-N24
      5  386 1338 (N13E44 L=205)   315     71        0 ( 369/1314- 412/1370) -53.1 E45-E41 N11-N15
      6  930 1290 (N11E07 L=242)   301     67        0 ( 902/1262- 969/1324) -36.9 E08-E04 N09-N13
      7 1842 1175 (N10W58 L=307)  4209    665        5 (1705/1034-1963/1311) -28.3 W45-W77 N02-N17
      8 1397 1239 (N11W22 L=271)   598    197        1 (1302/1207-1487/1265)   0.0 W16-W28 N08-N12
      9  263 1043 (S05E52 L=197)  1246    220        1 ( 245/ 939- 308/1144)  79.7 E54-E48 S10-N01
     10  610 1055 (S04E26 L=224)   218     49        0 ( 582/1031- 632/1075)   0.0 E27-E24 S05-S02
     11  714  943 (S10E19 L=230)   189     66        0 ( 683/ 915- 744/ 973)  36.9 E20-E16 S12-S08
     12  905  782 (S19E06 L=243)  1155    282        1 ( 811/ 681-1054/ 861)  38.2 E12-W02 S26-S13
     13 1843  722 (S16W63 L=313)  1536    269        3 (1810/ 663-1871/ 785) -74.1 W59-W68 S19-S12
     14 1680  605 (S25W50 L=299)  2022    392        2 (1546/ 532-1788/ 746)  47.1 W40-W56 S31-S15
     15  727  531 (S36E20 L=230)   564    151        1 ( 667/ 480- 784/ 576)  32.5 E25-E14 S40-S33
  

    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