Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  415 1571 (N11E56 L=297)   476     73        1 ( 392/1537- 434/1596) -23.2 E59-E52 N09-N12
      2 1531 1522 (N37W20 L= 13)   377     82        0 (1495/1504-1570/1537)  15.9 W16-W23 N34-N38
      3 1750 1378 (N35W40 L= 33)  1210    170        2 (1682/1318-1804/1433)   4.4 W33-W46 N31-N38
      4  280 1392 (S02E61 L=293)   387    137        1 ( 246/1361- 312/1414) -12.5 E64-E55 S03-N00
      5  401 1308 (S05E46 L=307)   681    185        0 ( 348/1227- 472/1386)  59.0 E48-E42 S10-N00
      6  300 1229 (S11E52 L=301)   728    115        5 ( 272/1174- 328/1290) -74.1 E54-E50 S14-S07
      7  197 1127 (S18E60 L=294)  1807    436        3 ( 100/1075- 276/1186)   2.7 E73-E52 S21-S14
      8 1558 1118 (N12W29 L= 22)   308     86        1 (1535/1070-1573/1163) -51.3 W26-W30 N09-N14
      9  319 1070 (S20E47 L=307)  1265    368        1 ( 203/ 994- 430/1103)  26.6 E56-E37 S26-S17
     10 1771  958 (N10W49 L= 42)   338     67        1 (1743/ 932-1791/ 990) -56.3 W46-W50 N08-N12
     11 1824  916 (N10W55 L= 48)   951    167        2 (1795/ 854-1867/ 962)  81.9 W52-W58 N06-N13
     12 1442  602 (S19W37 L= 31)   919    233        1 (1405/ 519-1461/ 710) -63.4 W32-W41 S24-S12
     13  280  639 (S48E50 L=304)   503    196        0 ( 233/ 605- 319/ 671)  28.6 E55-E44 S51-S45
     14 1127  550 (S31W20 L= 14)  1852    514        2 ( 884/ 490-1373/ 594)  18.4 W03-W36 S35-S24
  

    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