Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1563 1608 (N21W56 L= 90)  3268    410        3 (1360/1500-1710/1673) -49.6 W44-W63 N10-N30
      2 1730 1603 (N14W73 L=107)  3218    162        2 (1669/1540-1776/1663) -77.5 W66-W83 N10-N19
      3 1800 1199 (S08W55 L= 89)  1589    276        4 (1758/1089-1846/1304)  48.0 W47-W61 S12-S02
      4 1745 1284 (S01W53 L= 87)   334     78        1 (1712/1255-1770/1303) -36.9 W50-W54 S03-N00
      5 1727 1154 (S08W46 L= 80)   399     97        1 (1688/1116-1750/1189) -63.4 W44-W48 S10-S04
      6  214 1137 (N32E57 L=337)   709     87        1 ( 185/1094- 251/1181) -50.2 E60-E51 N29-N35
      7 1856 1121 (S14W58 L= 92)   605     88        3 (1833/1077-1884/1168)  33.7 W54-W62 S15-S11
      8 1888 1080 (S17W61 L= 95)   677     85        0 (1848/1056-1912/1117)   0.0 W55-W65 S19-S15
      9  549  964 (N14E29 L=  5)   281     60        1 ( 531/ 939- 572/ 997) -76.0 E30-E28 N12-N16
     10 1299  924 (S07W12 L= 46)   263    101        0 (1272/ 883-1318/ 973)  38.7 W09-W14 S08-S04
     11  516  910 (N12E33 L=  1)   441    114        2 ( 472/ 860- 542/ 952) -90.0 E35-E31 N08-N14
     12 1501  849 (S17W23 L= 56)   341    131        0 (1462/ 807-1524/ 913)  45.0 W19-W25 S19-S13
     13 1607  837 (S21W30 L= 64)   268     20        1 (1592/ 816-1632/ 861)  45.0 W28-W31 S22-S19
     14  448  799 (N07E40 L=353)   406    133        0 ( 395/ 757- 493/ 849)  16.7 E45-E35 N05-N09
     15 1256  737 (S16W05 L= 39)   718    255        0 (1146/ 654-1306/ 827) -72.9 W01-W06 S21-S08
     16 1654  768 (S27W32 L= 66)   557    144        0 (1596/ 729-1712/ 820)  10.3 W26-W37 S27-S25
     17 1100  701 (S14E05 L= 29)   473    182        0 (1024/ 665-1139/ 767)  14.0 E09-E01 S15-S10
     18  649  610 (S08E33 L=  1)  1407    256        3 ( 618/ 493- 694/ 731)  47.3 E39-E26 S14-S01
     19 1187  313 (S42E13 L= 21)  2696    505        4 (1076/ 168-1292/ 518)  32.0 E32-W00 S51-S30
     20  408  391 (S16E65 L=329)  2617    252        6 ( 349/ 261- 492/ 475)  62.1 E74-E58 S26-S09
     21  521  419 (S16E51 L=343)  1515    202        5 ( 472/ 333- 613/ 468)  11.9 E62-E43 S21-S12
  

    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