Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1524 1690 (N47W33 L=260)  1771    201        3 (1452/1631-1603/1732)  -3.6 W25-W41 N43-N50
      2  673 1579 (N25E31 L=195)   678    121        2 ( 649/1520- 692/1637) -71.6 E34-E28 N20-N29
      3  406 1519 (N19E51 L=175)   767    100        3 ( 381/1471- 432/1572) -66.8 E53-E48 N15-N22
      4 1382 1396 (N21W18 L=244)  1502    391        0 (1215/1272-1514/1482) -23.2 W06-W27 N15-N25
      5  729 1424 (N15E23 L=203)   360     48        1 ( 699/1395- 762/1445)  26.6 E25-E21 N13-N16
      6 1872 1284 (N24W63 L=289)  1184    154        4 (1842/1234-1896/1370) -76.0 W59-W67 N19-N28
      7 1783 1287 (N22W51 L=277)   381     42        1 (1766/1263-1802/1316) -71.6 W49-W53 N19-N23
      8  185 1262 (N02E65 L=161)   893    103        5 ( 165/1217- 217/1314) -78.7 E69-E60 N00-N05
      9  505 1031 (S10E33 L=193)   287     62        0 ( 480/ 994- 534/1056)  53.1 E34-E30 S12-S08
     10  316  840 (S23E49 L=178)   572     93        0 ( 269/ 821- 367/ 859)  -5.7 E53-E43 S24-S22
     11  876  841 (S18E07 L=219)   204     86        0 ( 836/ 827- 923/ 852)  18.4 E09-E03 S19-S17
     12  657  679 (S31E21 L=205)   610    132        1 ( 604/ 626- 705/ 726)  45.0 E25-E17 S34-S27
     13 1521  546 (S27W43 L=269)  2758    471        2 (1322/ 432-1704/ 678)  46.4 W31-W53 S37-S16
     14 1434  354 (S41W47 L=274)   376     71        0 (1404/ 327-1458/ 386) -78.7 W45-W49 S43-S38
  

    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