Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1666 1542 (N34W54 L= 87)   865    101        2 (1630/1505-1697/1585) -80.5 W51-W56 N31-N37
      2  822 1541 (N38E15 L= 18)   232     71        0 ( 789/1516- 861/1559)  31.0 E16-E11 N36-N39
      3  515 1480 (N34E38 L=354)   955    217        0 ( 446/1433- 601/1522) -18.4 E45-E30 N30-N36
      4  354 1283 (N20E48 L=344)  3128    679        6 ( 221/1083- 447/1439) -39.2 E66-E38 N07-N29
      5  908 1386 (N27E07 L= 25)   345     83        1 ( 860/1372- 952/1403)   9.5 E10-E04 N26-N28
      6 1773 1236 (N14W56 L= 88)   663    139        2 (1737/1174-1801/1302) -71.6 W53-W58 N09-N18
      7 1125 1181 (N13W07 L= 39)   232     58        0 (1087/1155-1161/1210) -45.0 W04-W08 N11-N15
      8 1516  982 (S00W32 L= 64)   293    104        1 (1482/ 955-1572/ 999)   9.5 W29-W35 S01-N00
      9  464  913 (S03E37 L=355)   315     68        2 ( 437/ 893- 501/ 932)  26.6 E39-E34 S03-S01
     10  743  833 (S07E18 L= 14)   424     96        1 ( 686/ 805- 797/ 862) -23.2 E21-E14 S09-S05
     11  357  694 (S17E49 L=344)  1121    265        2 ( 321/ 604- 400/ 797)  55.3 E54-E43 S22-S09
     12 1649  669 (S21W44 L= 76)   307     75        0 (1618/ 655-1679/ 680)   0.0 W41-W46 S21-S20
     13 1407  578 (S26W26 L= 58)   626    116        1 (1346/ 561-1465/ 600)   7.1 W21-W29 S27-S24
     14  575  537 (S27E34 L=359)  1075    264        1 ( 504/ 494- 676/ 596)  26.6 E40-E24 S30-S22
  

    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