Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1168 1556 (N31W14 L=132)  1416    344        0 (1038/1458-1287/1643) -45.0 W05-W20 N23-N37
      2 1417 1589 (N31W33 L=151)   689    148        0 (1352/1548-1486/1634) -36.9 W28-W37 N28-N35
      3  826 1573 (N34E10 L=108)   264     44        1 ( 799/1557- 853/1589) -14.0 E12-E08 N33-N35
      4  515 1464 (N29E34 L= 85)   326    136        0 ( 465/1429- 574/1489)  24.0 E37-E28 N26-N30
      5  416 1353 (N22E40 L= 78)   961    168        1 ( 380/1302- 478/1413) -53.1 E43-E34 N18-N26
      6  884 1380 (N21E07 L=112)   262     52        0 ( 853/1360- 913/1398)   0.0 E08-E04 N19-N21
      7  166 1348 (N24E70 L= 48)  1585    100        2 ( 134/1301- 200/1394)  63.4 E76-E65 N21-N27
      8  861 1324 (N17E08 L=110)   206     61        2 ( 826/1307- 890/1350)   0.0 E10-E06 N16-N18
      9 1864 1134 (N01W62 L=180)   729     99        1 (1821/1091-1891/1162) -23.2 W57-W65 S01-N02
     10  793  850 (S11E15 L=103)   379    127        1 ( 747/ 806- 848/ 895)  35.5 E18-E11 S13-S08
     11 1881  862 (S16W65 L=183)   486     76        0 (1849/ 836-1913/ 883)  20.6 W60-W69 S17-S14
     12 1679  602 (S32W48 L=167)  3651    565        4 (1497/ 440-1888/ 760)  27.2 W34-W70 S42-S21
     13  828  628 (S25E16 L=103)   658    175        0 ( 806/ 559- 881/ 708) -84.3 E16-E12 S29-S19
     14 1381  471 (S39W24 L=142)   669    118        1 (1346/ 415-1408/ 518) -53.1 W20-W27 S43-S35
     15 1389  253 (S58W35 L=153)   432     47        1 (1366/ 239-1417/ 274)  -7.1 W31-W40 S60-S56
  

    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