Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1621 1625 (N21W64 L=341)   969    107        4 (1590/1582-1659/1667)  39.8 W59-W69 N17-N23
      2  713 1631 (N52E02 L=275)   315     85        0 ( 696/1585- 729/1666)  74.1 E03-W00 N48-N55
      3 1185 1600 (N34W30 L=307)  2455    523        5 (1013/1515-1450/1665) -46.3 W19-W43 N21-N43
      4  389 1536 (N56E42 L=235)   898    130        2 ( 349/1490- 449/1558)  -7.1 E50-E33 N52-N58
      5 1786 1466 (N07W69 L=346)  1108    148        0 (1751/1423-1817/1522)  35.5 W62-W75 N04-N10
      6 1528 1403 (N12W42 L=319)   440     88        0 (1486/1368-1567/1428) -51.3 W39-W43 N09-N14
      7  813 1319 (N29E04 L=273)   287    150        0 ( 747/1297- 878/1335) -32.0 E08-W00 N25-N30
      8 1627 1309 (N04W45 L=322)   283     47        3 (1603/1281-1646/1333)  33.7 W42-W47 N03-N05
      9 1319 1295 (N13W25 L=302)   310     97        1 (1283/1265-1354/1330) -78.7 W22-W26 N10-N15
     10  271 1214 (N36E51 L=226)   753    143        1 ( 205/1180- 337/1248) -18.4 E61-E43 N32-N38
     11 1797 1062 (S14W51 L=328)   582     93        1 (1778/1015-1818/1105)  51.3 W49-W54 S17-S11
     12  899  987 (N08E08 L=269)   247     91        2 ( 872/ 960- 946/1011)  11.3 E09-E04 N06-N08
     13  337  929 (N17E47 L=230)   376    130        0 ( 296/ 907- 402/ 963) -29.1 E50-E41 N14-N19
     14  183  925 (N20E65 L=212)   824    121        0 ( 129/ 892- 236/ 949) -14.9 E73-E58 N16-N21
     15 1742  839 (S26W42 L=319)   487    139        1 (1699/ 770-1778/ 885)  24.0 W36-W45 S28-S23
     16 1510  649 (S29W20 L=297)  1103    232        1 (1424/ 589-1568/ 747)  21.0 W12-W25 S32-S24
     17 1781  615 (S43W47 L=324)  1802    166        5 (1708/ 572-1829/ 684)  32.0 W37-W55 S46-S38
     18 1654  599 (S38W31 L=308)   664    115        0 (1630/ 551-1682/ 656)  50.2 W28-W34 S41-S34
     19 1184  280 (S45E15 L=262)  1394    234        2 (1078/ 235-1270/ 338)   6.0 E25-E06 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