Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  714 1641 (N53E02 L=274)   307     58        1 ( 688/1612- 741/1664)   0.0 E04-W01 N51-N54
      2 1173 1612 (N35W30 L=306)  1975    472        8 (1023/1541-1409/1660) -45.0 W20-W41 N23-N42
      3 1620 1611 (N20W63 L=339)   425     62        1 (1586/1590-1652/1630) -31.0 W60-W65 N17-N21
      4  397 1541 (N56E41 L=235)   854     90        1 ( 353/1508- 455/1559)  -6.7 E50-E32 N53-N58
      5 1789 1473 (N07W70 L=346)  1162    145        2 (1756/1425-1818/1527)  32.0 W63-W76 N04-N10
      6 1555 1400 (N11W44 L=320)   483    127        1 (1507/1351-1602/1436) -60.3 W41-W45 N07-N14
      7 1334 1306 (N13W26 L=302)   248     88        2 (1298/1276-1367/1340) -78.7 W23-W27 N10-N15
      8  845 1317 (N28E02 L=273)   302    129        1 ( 794/1276- 888/1339) -38.7 E05-W00 N25-N29
      9 1368 1234 (N08W25 L=301)   225     71        1 (1338/1205-1403/1259)  11.3 W22-W27 N07-N09
     10  283 1215 (N36E50 L=226)   763    159        1 ( 217/1179- 354/1255) -22.4 E59-E42 N31-N39
     11 1809 1096 (S13W53 L=329)   514    118        1 (1791/1050-1823/1155)  71.6 W50-W56 S15-S09
     12  923 1004 (N08E06 L=270)   301    142        1 ( 873/ 972- 980/1046)  -8.1 E08-E01 N06-N09
     13  351  934 (N17E46 L=230)   441    153        0 ( 304/ 911- 416/ 980) -33.7 E49-E40 N14-N20
     14  196  925 (N19E63 L=213)   874    129        1 ( 135/ 891- 244/ 949) -19.7 E72-E56 N16-N21
     15 1752  847 (S25W43 L=319)   452    131        0 (1708/ 777-1783/ 893)  29.1 W37-W46 S28-S23
     16 1525  658 (S29W21 L=297)  1154    234        1 (1438/ 593-1588/ 754)  24.8 W13-W26 S32-S24
     17 1790  621 (S43W49 L=325)  1677    178        4 (1716/ 579-1838/ 689)  -6.0 W38-W57 S46-S38
     18 1667  611 (S38W33 L=309)   828    143        0 (1637/ 551-1693/ 685)  71.6 W29-W35 S42-S33
     19  773  425 (S22E34 L=242)   299     62        1 ( 756/ 397- 790/ 453)  63.4 E35-E31 S24-S20
     20 1194  284 (S45E14 L=262)  1292    232        2 (1087/ 238-1287/ 336)   3.0 E24-E05 S47-S43
  

    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