Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  654 1792 (N30E56 L=256)  1041    159        0 ( 616/1723- 708/1851) -54.0 E60-E51 N24-N35
      2 1227 1831 (N53E19 L=292)   520     58        0 (1195/1813-1256/1849)  45.0 E22-E15 N50-N55
      3  876 1812 (N38E41 L=271)   529     67        0 ( 852/1783- 910/1833)  76.0 E44-E38 N34-N39
      4  886 1719 (N31E33 L=279)   697    162        2 ( 863/1647- 917/1793) -39.8 E38-E26 N26-N36
      5  901 1429 (N13E19 L=293)  1107    293        1 ( 870/1301- 926/1575) -60.6 E24-E14 N05-N21
      6  411 1389 (S01E49 L=263)   284     54        0 ( 384/1370- 436/1409)  33.7 E50-E47 S02-N00
      7  225 1147 (S19E59 L=253)   353     75        0 ( 202/1115- 243/1192)  78.7 E61-E57 S20-S15
      8 1443  604 (S16W38 L=350)   337     48        2 (1420/ 578-1474/ 634)  14.0 W36-W40 S17-S14
      9 1258  506 (S27W32 L=344)   948    197        2 (1173/ 486-1363/ 536)  41.6 W26-W36 S31-S22
     10 1508  445 (S22W52 L=  4)  1272    170        4 (1443/ 404-1577/ 491)  49.4 W48-W56 S25-S17
     11  517  368 (S65E23 L=289)   523     32        1 ( 495/ 349- 543/ 389)  33.7 E27-E18 S68-S62
     12  795  304 (S58W14 L=326)   346     59        0 ( 785/ 272- 808/ 344) -35.5 W10-W17 S61-S54
     13  844  315 (S55W17 L=329)   434     66        1 ( 823/ 281- 870/ 344) -80.5 W14-W19 S58-S52
     14  669  299 (S65W02 L=314)  1178    142        0 ( 615/ 267- 732/ 329)  14.9 E06-W09 S68-S61
  

    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