Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1510 1785 (N51W46 L=359)   626    169        0 (1498/1749-1523/1825)  52.1 W43-W50 N47-N56
      2 1560 1697 (N43W44 L=357)   570     55        1 (1530/1669-1590/1722) -36.9 W41-W46 N40-N45
      3 1678 1542 (N32W49 L=  1)  1178    174        1 (1604/1479-1737/1608) -37.9 W43-W53 N27-N36
      4  904 1553 (N29E09 L=303)   283     77        0 ( 861/1535- 951/1567)  -9.5 E12-E06 N28-N30
      5 1004 1383 (N18E02 L=311)   442     76        0 ( 981/1337-1029/1429) -68.2 E03-W00 N15-N20
      6  394 1287 (N12E42 L=270)   719    198        2 ( 316/1223- 459/1334)  28.6 E48-E37 N07-N14
      7  304 1248 (N10E50 L=263)  1140    180        5 ( 273/1173- 340/1328)  77.5 E52-E47 N05-N14
      8  845 1268 (N10E11 L=301)   744    193        0 ( 751/1232- 942/1319) -18.4 E17-E05 N08-N13
      9  233 1283 (N12E57 L=255)   425     85        1 ( 207/1258- 256/1311)  45.0 E60-E55 N10-N13
     10 1860 1213 (N11W61 L= 13)   436     85        0 (1825/1196-1888/1230)  -9.5 W56-W64 N10-N11
     11 1533 1071 (N00W32 L=344)   460     87        2 (1496/1040-1569/1099)  26.6 W29-W34 S01-N02
     12 1696 1069 (N01W44 L=357)   297    111        0 (1656/1041-1738/1087)   8.1 W40-W47 N00-N02
     13 1748  938 (S06W49 L=  2)   665    160        1 (1714/ 858-1782/1016)  73.3 W46-W52 S11-S01
     14 1527  907 (S09W32 L=345)   938    258        2 (1464/ 811-1610/ 998)  56.3 W28-W37 S15-S03
     15  245  849 (S14E55 L=258)  1827    409       10 ( 175/ 771- 345/ 930) -26.6 E62-E45 S18-S09
     16  137  818 (S15E69 L=244)  1081    248        5 ( 105/ 786- 179/ 842)  11.3 E74-E62 S16-S13
     17  187  761 (S19E63 L=250)   552    109        1 ( 162/ 738- 206/ 789)  45.0 E66-E60 S20-S17
     18 1763  767 (S16W53 L=  6)   351     50        0 (1736/ 749-1791/ 783)  11.3 W50-W55 S17-S15
     19  786  670 (S26E15 L=298)  1414    273        2 ( 662/ 603- 850/ 770)  37.6 E24-E10 S30-S19
     20 1428  708 (S22W27 L=340)   313     80        0 (1389/ 681-1458/ 746)  36.9 W24-W29 S23-S19
     21 1714  655 (S24W51 L=  4)   417     58        0 (1684/ 618-1739/ 685)  53.1 W49-W52 S25-S21
     22 1146  625 (S28W09 L=322)   619     90        2 (1110/ 575-1188/ 673)  60.3 W06-W11 S31-S24
     23 1460  522 (S34W34 L=346)   508    101        0 (1407/ 492-1514/ 548)  29.7 W29-W37 S35-S31
     24 1603  528 (S32W45 L=358)   288     35        1 (1584/ 508-1626/ 545) -14.0 W43-W47 S33-S31
  

    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