Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1533 1722 (N38W67 L=320)   516     85        0 (1507/1694-1568/1737) -31.0 W60-W71 N36-N39
      2 1554 1654 (N34W60 L=314)   516     87        0 (1517/1619-1593/1684) -71.6 W58-W62 N30-N36
      3  738 1525 (N43E12 L=241)   539    128        1 ( 688/1499- 816/1544) -31.0 E16-E06 N39-N45
      4 1002 1373 (N28W05 L=259)   203     52        0 ( 978/1357-1037/1385)   0.0 W03-W07 N27-N28
      5 1297 1301 (N18W22 L=276)  1130    370        1 (1129/1246-1457/1343) -32.3 W12-W31 N11-N23
      6  698 1240 (N25E18 L=236)   259    112        0 ( 658/1225- 749/1265) -26.6 E20-E14 N23-N26
      7  236 1144 (N24E59 L=195)  2025    220        3 ( 205/1060- 280/1226)  84.3 E63-E53 N18-N29
      8 1759 1053 (S06W50 L=304)   834    199        1 (1728/ 969-1794/1132)  48.8 W46-W55 S10-S02
      9  177  920 (N10E67 L=187)   745     52        1 ( 151/ 890- 200/ 951) -45.0 E71-E63 N08-N12
     10  146  876 (N07E73 L=180)  1363    107        3 ( 119/ 832- 179/ 924) -50.2 E78-E67 N04-N10
     11 1713  532 (S41W49 L=303)   447     45        2 (1694/ 504-1736/ 556) -76.0 W45-W52 S42-S38
     12 1616  422 (S47W41 L=294)   662     63        2 (1582/ 394-1647/ 451)  -6.3 W35-W44 S50-S44
     13  623  335 (S32E46 L=207)   627     86        2 ( 594/ 296- 651/ 378)  28.6 E52-E41 S35-S28
     14 1500  349 (S51W28 L=282)   472     72        1 (1467/ 333-1536/ 365) -12.5 W24-W33 S52-S48
     15 1319  260 (S54W09 L=262)   802    112        1 (1267/ 235-1363/ 300)  21.8 W02-W13 S56-S50
  

    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