Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1091 1872 (N66E16 L=  6)   504     38        1 (1069/1854-1119/1890)  38.7 E20-E12 N62-N68
      2 1629 1597 (N48W49 L= 72)  1929    167        1 (1546/1565-1713/1621)   7.6 W37-W68 N44-N50
      3 1270 1471 (N32W11 L= 33)  1080    315        2 (1210/1349-1364/1568) -57.3 W06-W18 N25-N39
      4  385 1474 (N20E55 L=327)   518     52        2 ( 351/1452- 414/1495)  -7.1 E59-E51 N18-N21
      5 1145 1325 (N21W04 L= 26)   369    140        1 (1106/1295-1192/1383) -29.7 W00-W07 N18-N23
      6  351 1352 (N12E53 L=330)   532     98        2 ( 302/1329- 399/1373)  -5.2 E58-E47 N10-N12
      7 1229 1171 (N12W11 L= 33)   193     56        2 (1207/1153-1255/1193)   0.0 W09-W12 N11-N13
      8 1299 1043 (N05W17 L= 39)   212    100        0 (1279/ 989-1319/1083)  80.5 W15-W17 N01-N07
      9  218  973 (S13E59 L=323)   392     80        0 ( 204/ 932- 241/1011)  68.2 E61-E56 S15-S10
     10  312  769 (S25E50 L=333)  1185    148        0 ( 281/ 701- 337/ 848)  63.4 E53-E46 S29-S19
     11 1800  809 (S03W60 L= 82)   388     74        0 (1785/ 773-1815/ 842)  78.7 W58-W61 S05-N00
     12  892  586 (S29E03 L= 20)   696    203        1 ( 808/ 561- 968/ 621)  24.0 E08-W01 S30-S25
     13  401  574 (S37E44 L=338)   769     95        1 ( 366/ 531- 450/ 611) -80.5 E47-E38 S40-S34
     14 1381  503 (S27W33 L= 56)  3262    757        1 (1075/ 431-1708/ 576)  18.4 W12-W60 S36-S18
  

    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