Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  925 1738 (N51W20 L=142)   599    111        1 ( 892/1685- 960/1782)  28.6 W13-W24 N47-N54
      2 1296 1713 (N36W43 L=166)   577    131        1 (1237/1676-1363/1738) -15.3 W37-W49 N34-N37
      3 1248 1596 (N31W32 L=155)   303     44        1 (1218/1575-1279/1613) -26.6 W30-W34 N29-N32
      4  242 1349 (N43E55 L= 67)   433     84        1 ( 214/1313- 272/1389)  33.7 E59-E51 N41-N45
      5  800 1354 (N29E05 L=118)   272     58        0 ( 761/1335- 833/1370) -36.9 E06-E02 N27-N30
      6 1728 1274 (S01W51 L=173)   960    155        2 (1681/1228-1792/1318) -54.5 W46-W55 S05-N02
      7  342 1075 (N24E43 L= 80)  2376    423        3 ( 186/ 986- 518/1210) -32.3 E60-E30 N14-N34
      8 1806  942 (S21W49 L=172)   632    135        0 (1779/ 880-1825/1007)  54.5 W45-W51 S24-S17
      9 1915  939 (S26W64 L=186)   673     43        1 (1886/ 921-1948/ 956)  -5.2 W58-W70 S26-S23
     10 1566  881 (S17W28 L=151)   227     63        1 (1529/ 868-1596/ 899) -11.3 W25-W30 S18-S16
     11  243  811 (N11E58 L= 65)  1127    124        4 ( 197/ 751- 292/ 849) -29.1 E62-E52 N07-N13
     12 1264  730 (S17W06 L=129)   727    316        0 (1162/ 642-1388/ 830)  14.0 E01-W15 S20-S14
     13  903  766 (S06E13 L=110)  1205    308        1 ( 834/ 662-1026/ 810)   4.4 E19-E06 S10-S03
     14 1602  662 (S32W27 L=150)  1581    381        0 (1500/ 556-1737/ 810)  21.4 W17-W40 S36-S26
     15  289  731 (N05E56 L= 67)  1230    132        4 ( 238/ 684- 350/ 782)   0.0 E62-E50 N02-N08
     16  471  589 (S06E46 L= 77)   423     51        2 ( 443/ 562- 502/ 610)   9.5 E48-E42 S07-S05
     17  589  507 (S14E41 L= 82)   846    179        1 ( 532/ 441- 638/ 591)  32.5 E48-E35 S16-S09
     18  943  234 (S41E34 L= 89)   304     52        1 ( 923/ 210- 959/ 271)  26.6 E37-E29 S43-S38
     19  833  163 (S44E50 L= 72)   666     78        0 ( 799/ 143- 866/ 191)  10.3 E55-E44 S45-S42
  

    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