Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1174 1636 (N35W08 L=294)   545     67        0 (1154/1593-1193/1685)  74.1 W06-W09 N32-N39
      2 1357 1626 (N36W22 L=307)   384     50        1 (1322/1597-1384/1645)  11.3 W19-W24 N33-N37
      3  702 1627 (N33E26 L=259)   270     68        0 ( 663/1609- 737/1644)  21.8 E28-E23 N31-N34
      4 1579 1471 (N26W37 L=323)   878    192        0 (1503/1422-1665/1524) -22.6 W31-W43 N23-N29
      5 1835 1309 (N18W59 L=345)  1387    152        6 (1795/1253-1866/1376) -76.0 W54-W63 N14-N22
      6 1797 1258 (N14W54 L=339)   767    156        1 (1729/1202-1846/1303) -26.6 W47-W58 N11-N16
      7 1782  961 (S03W52 L=337)   284     47        0 (1763/ 934-1799/ 989)  76.0 W50-W53 S05-S01
      8  165  878 (S14E64 L=221)  1067    124        0 ( 133/ 835- 192/ 934)  50.2 E68-E59 S16-S10
      9 1195  618 (S28W13 L=299)  1862    475        1 (1104/ 489-1321/ 737)  40.2 W07-W20 S36-S20
     10  343  569 (S34E53 L=232)  1085    211        1 ( 269/ 509- 425/ 602)   7.1 E68-E44 S37-S31
     11 1763  559 (S27W63 L=349)  1054    105        0 (1703/ 541-1814/ 578)   8.1 W55-W70 S28-S25
     12 1343  541 (S32W25 L=311)   442     92        1 (1297/ 522-1385/ 576)  18.4 W21-W27 S33-S29
     13 1375  379 (S43W34 L=319)   265     36        0 (1355/ 362-1391/ 404)  71.6 W31-W35 S44-S41
     14  750  337 (S50E22 L=264)  2120    380        2 ( 567/ 309- 908/ 381)   1.7 E41-E06 S53-S46
     15 1556  350 (S44W55 L=341)  2642    248        6 (1428/ 321-1684/ 381)   4.9 W39-W76 S45-S40
  

    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