Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1393 1632 (N30W45 L=189)  1567    332        1 (1245/1604-1545/1653) -31.0 W33-W56 N23-N35
      2 1701 1484 (N12W60 L=204)   924    110        3 (1651/1443-1745/1529) -74.1 W56-W62 N08-N15
      3 1177 1412 (N24W20 L=164)   809    240        0 (1056/1378-1283/1454) -39.3 W13-W25 N19-N29
      4 1829 1267 (S03W61 L=205)   411     22        1 (1809/1246-1850/1288)   0.0 W58-W64 S04-S02
      5 1786 1169 (S07W53 L=197)  1381    260        2 (1720/1090-1854/1287) -69.0 W49-W58 S13-N00
      6 1862 1075 (S15W58 L=202)  2414    285        8 (1777/ 980-1925/1187)  12.8 W47-W71 S19-S10
      7  661 1094 (N19E20 L=125)  1378    359        1 ( 517/1026- 819/1179) -41.4 E28-E11 N12-N27
      8 1900 1045 (S18W63 L=207)   490     46        1 (1884/1020-1924/1069)  21.8 W60-W67 S19-S16
      9  172  975 (N22E64 L= 80)   522    123        0 ( 143/ 920- 196/1026) -49.4 E68-E61 N18-N25
     10 1924  982 (S23W66 L=210)   873     90        2 (1887/ 953-1952/1020)   0.0 W59-W72 S24-S20
     11 1066  903 (S01E01 L=143)   411    145        0 (1028/ 858-1112/ 938)  26.6 E03-W01 S02-N01
     12 1485  689 (S25W19 L=163)  1699    401        3 (1382/ 547-1578/ 855)  34.4 W09-W28 S32-S17
     13 1797  793 (S29W47 L=191)   509     82        1 (1764/ 769-1826/ 830)   8.1 W43-W50 S30-S27
     14  812  680 (S07E21 L=123)   532    225        1 ( 786/ 598- 855/ 760)  48.8 E23-E16 S12-S03
     15  388  680 (N02E49 L= 95)   745    169        1 ( 370/ 605- 417/ 759)  71.6 E51-E45 S03-N06
     16  994  611 (S16E13 L=132)   604    111        2 ( 964/ 558-1036/ 666)  82.9 E14-E09 S19-S11
     17  689  615 (S08E30 L=114)   218     66        0 ( 666/ 590- 718/ 640) -76.0 E31-E29 S10-S06
     18 1566  559 (S36W23 L=167)   337     71        0 (1537/ 531-1587/ 591)  31.0 W20-W25 S38-S34
     19  637  466 (S16E40 L=105)   551    119        3 ( 616/ 411- 673/ 517)  54.5 E43-E36 S19-S12
     20  726  423 (S21E36 L=108)   442    100        1 ( 692/ 382- 747/ 481)  56.3 E38-E32 S23-S17
     21 1366  262 (S54E01 L=144)   453     76        1 (1326/ 252-1408/ 278) -23.2 E04-W03 S56-S52
     22  874  214 (S40E40 L=104)  1583    172        3 ( 800/ 174- 939/ 256)   6.7 E49-E32 S42-S37
  

    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