Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  428 1582 (N20E56 L= 43)   603    106        1 ( 400/1545- 471/1604)  53.1 E59-E52 N17-N22
      2  373 1291 (N02E49 L= 50)   370     63        1 ( 341/1271- 400/1311)  36.9 E51-E46 N00-N03
      3 1167 1223 (N13W04 L=103)   556    203        1 (1104/1164-1254/1306) -26.6 W00-W10 N10-N16
      4  545 1007 (S12E29 L= 70)   389    137        0 ( 519/ 943- 561/1077) -60.3 E32-E27 S15-S08
      5 1728  953 (N08W48 L=147)   475    156        1 (1676/ 924-1776/ 978)  -5.7 W43-W53 N07-N09
      6 1156  895 (S07W10 L=109)   308    102        0 (1135/ 847-1174/ 953) -56.3 W07-W11 S09-S03
      7 1323  900 (S03W20 L=119)   200     56        0 (1302/ 868-1343/ 936)  90.0 W19-W21 S05-N00
      8  828  667 (S27E05 L= 94)  1539    559        2 ( 611/ 535-1070/ 762)  41.6 E19-W08 S40-S16
      9 1336  630 (S18W28 L=127)   299    104        0 (1294/ 581-1381/ 655)  63.4 W26-W30 S22-S16
     10 1447  626 (S16W36 L=135)   318     36        1 (1423/ 606-1478/ 647)  33.7 W33-W37 S17-S14
     11 1505  576 (S18W42 L=141)   300     69        1 (1488/ 545-1524/ 605)  90.0 W40-W43 S20-S16
     12  868  535 (S35W01 L= 99)   249     55        1 ( 840/ 515- 896/ 562)  76.0 E01-W02 S36-S32
     13 1546  472 (S23W50 L=149)   539    186        1 (1470/ 458-1603/ 492)  24.0 W43-W54 S25-S20
     14 1423  279 (S39W53 L=152)   983    160        0 (1369/ 260-1479/ 303)  11.3 W47-W58 S40-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