Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  584 1689 (N46E33 L= 97)   352     59        0 ( 551/1673- 616/1706)   9.5 E36-E30 N44-N47
      2  887 1629 (N38E06 L=125)   821    198        2 ( 803/1573- 966/1680) -36.0 E12-W00 N33-N42
      3 1262 1574 (N31W21 L=151)   585    139        1 (1196/1532-1327/1616) -40.6 W16-W25 N28-N34
      4  651 1531 (N33E23 L=107)   461     99        2 ( 619/1496- 696/1564) -35.5 E26-E19 N29-N35
      5 1057 1470 (N25W05 L=136)   678    133        4 ( 996/1429-1123/1508) -32.0 W01-W09 N22-N28
      6  286 1335 (N23E52 L= 78)  1280    225        1 ( 252/1280- 337/1409)  63.4 E56-E47 N18-N27
      7  378 1323 (N21E43 L= 88)   343     77        2 ( 342/1298- 403/1358)  53.1 E45-E40 N19-N23
      8 1738 1137 (N01W49 L=179)   951    142        2 (1670/1090-1796/1171) -10.3 W43-W54 S01-N03
      9 1746  867 (S15W49 L=180)  1239    225        1 (1652/ 790-1826/ 947)  28.1 W41-W56 S19-S10
     10  607  825 (S11E28 L=103)   688    174        2 ( 544/ 747- 659/ 892)  45.0 E33-E23 S15-S07
     11 1562  593 (S32W37 L=167)  3640    715        7 (1327/ 417-1851/ 770)  25.5 W19-W63 S43-S21
     12  658  613 (S24E28 L=103)   741    151        2 ( 632/ 550- 705/ 685) -77.5 E29-E25 S28-S19
     13 1715  646 (S29W50 L=181)   366     62        2 (1685/ 624-1744/ 672)  36.9 W47-W53 S30-S27
     14 1246  448 (S40W13 L=143)   808    134        2 (1207/ 398-1291/ 503) -52.1 W09-W16 S44-S35
     15 1317  256 (S57W24 L=155)   417     64        2 (1284/ 245-1358/ 272)   0.0 W20-W29 S58-S55
  

    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