Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1505 1664 (N52W35 L=308)   392     57        0 (1481/1641-1531/1682)  24.0 W30-W39 N49-N54
      2  363 1596 (N26E68 L=205)  1590    164        2 ( 311/1515- 405/1651) -55.0 E74-E62 N20-N30
      3  701 1536 (N28E31 L=242)   777    162        2 ( 676/1461- 740/1608) -79.7 E33-E29 N22-N33
      4 1646 1532 (N43W47 L=320)   492     57        1 (1630/1501-1664/1566)  78.7 W44-W50 N40-N45
      5 1006 1398 (N23E07 L=266)   382    136        1 ( 964/1333-1035/1441) -45.0 E10-E04 N19-N25
      6  157 1077 (S09E69 L=204)   752    142        1 ( 139/1013- 183/1135)  63.4 E71-E65 S12-S04
      7  218 1031 (S10E60 L=213)  1663    225        4 ( 187/ 929- 252/1116)  80.5 E63-E56 S16-S04
      8  304 1011 (S10E50 L=223)   373     61        1 ( 278/ 991- 326/1038)  56.3 E52-E47 S11-S08
      9  186  752 (S29E69 L=204)  1292    102        1 ( 150/ 722- 226/ 784)  12.8 E82-E60 S31-S26
     10 1778  616 (S14W66 L=339)  1494    114        4 (1743/ 572-1821/ 654)  39.8 W61-W72 S17-S11
     11 1698  609 (S16W57 L=330)   412     42        1 (1671/ 585-1719/ 632)  33.7 W53-W59 S17-S14
     12 1290  486 (S30W28 L=301)  1392    411        1 (1104/ 446-1460/ 536)  27.6 W15-W39 S35-S23
     13 1173  256 (S50W32 L=305)   446     66        2 (1143/ 244-1214/ 276)   7.1 W28-W36 S51-S47
     14 1360  229 (S49W55 L=328)   763     81        2 (1334/ 190-1383/ 270) -26.6 W48-W66 S52-S44
  

    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