Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  819 1744 (N32E34 L=314)   604    103        0 ( 779/1701- 849/1780) -24.0 E39-E30 N29-N33
      2  972 1580 (N24E17 L=332)   314     98        1 ( 954/1532- 991/1627) -56.3 E19-E14 N21-N27
      3  843 1544 (N19E24 L=325)   486    158        1 ( 763/1525- 923/1565)  16.7 E28-E18 N17-N20
      4 1568 1361 (N26W26 L= 14)   556    175        1 (1529/1290-1620/1402)  71.6 W23-W29 N21-N30
      5 1663 1309 (N26W34 L= 23)   395    124        0 (1615/1256-1691/1347) -23.2 W29-W36 N23-N27
      6 1284 1300 (N14W08 L=357)   356    145        1 (1251/1250-1333/1334) -68.2 W06-W11 N11-N16
      7  926 1236 (N02E10 L=339)   612    257        0 ( 808/1210-1037/1271)  24.8 E17-E04 N00-N06
      8 1601 1208 (N18W30 L= 19)   582    159        3 (1551/1173-1677/1244)   5.7 W26-W36 N15-N19
      9 1833 1006 (N13W54 L= 42)   779    151        0 (1821/ 936-1846/1087) -83.7 W52-W55 N09-N18
     10  195  980 (S25E60 L=289)  1516    164        4 ( 122/ 943- 266/1011)   8.5 E71-E51 S28-S23
     11 1452  737 (S12W32 L= 21)   208     47        1 (1424/ 716-1476/ 755)  33.7 W30-W34 S13-S11
     12  198  668 (S45E68 L=281)  1271    121        2 ( 135/ 639- 257/ 701)  -6.6 E86-E57 S46-S42
     13 1145  655 (S25W17 L=  5)   373     64        1 (1111/ 634-1191/ 679)   0.0 W14-W19 S25-S23
     14 1460  524 (S23W42 L= 31)  2119    518        3 (1247/ 467-1702/ 605)  37.6 W30-W57 S31-S11
     15 1763  489 (S15W73 L= 61)   836     78        0 (1724/ 473-1798/ 512)  16.7 W66-W80 S16-S12
  

    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