Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1313 1401 (N27W22 L=301)   961    256        1 (1235/1334-1407/1500) -59.7 W17-W27 N21-N33
      2 1441 1387 (N25W31 L=311)   239     89        1 (1403/1358-1472/1414) -45.0 W28-W33 N22-N26
      3  441 1382 (N28E43 L=236)   464    143        2 ( 386/1353- 507/1405)  -9.5 E48-E36 N26-N30
      4  439 1221 (N18E40 L=239)   279     68        1 ( 420/1190- 460/1260)  76.0 E41-E38 N16-N20
      5 1773 1238 (N13W57 L=336)   394     37        2 (1741/1222-1802/1254) -15.9 W53-W60 N11-N13
      6  522 1152 (N14E33 L=246)   230    110        0 ( 493/1115- 570/1175)  26.6 E35-E29 N11-N15
      7 1266  830 (S09W14 L=294)   543    136        2 (1242/ 777-1291/ 888)  74.1 W12-W16 S12-S05
      8 1748  856 (S11W51 L=330)   542     48        0 (1726/ 829-1771/ 879)  56.3 W48-W53 S12-S09
      9 1605  807 (S12W38 L=318)   257    164        0 (1579/ 733-1619/ 865)  83.7 W36-W39 S17-S08
     10 1657  749 (S17W43 L=323)   566     88        2 (1632/ 710-1700/ 784)  59.0 W41-W47 S19-S14
     11 1771  741 (S18W55 L=335)   378     19        0 (1754/ 717-1784/ 763) -63.4 W53-W57 S20-S16
     12 1805  676 (S23W62 L=342)  2261    228        2 (1764/ 588-1852/ 755)  79.7 W58-W68 S29-S18
     13  285  621 (S20E61 L=218)   735     99        1 ( 270/ 573- 300/ 679)  41.2 E65-E56 S23-S16
     14 1726  632 (S25W53 L=333)   756     99        1 (1708/ 583-1751/ 671)  80.5 W50-W55 S28-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