Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1541 1656 (N52W22 L=277)   407     61        1 (1507/1634-1571/1677)  12.5 W18-W26 N52-N52
      2  394 1628 (N14E66 L=189)   884     92        2 ( 371/1596- 413/1663) -45.0 E75-E61 N12-N16
      3  312 1536 (N07E68 L=187)   504     84        0 ( 282/1522- 343/1547)   7.1 E74-E63 N07-N07
      4  801 1486 (N15E27 L=228)   384    121        0 ( 740/1435- 855/1539)  71.6 E33-E22 N13-N16
      5 1127 1472 (N23E07 L=248)   577    125        1 (1095/1413-1157/1534) -36.9 E11-E03 N20-N26
      6  681 1331 (N03E28 L=227)   364     86        3 ( 655/1280- 706/1377) -38.7 E31-E25 N00-N05
      7  182 1217 (S14E67 L=188)  3788    513        8 ( 124/1109- 222/1349) -75.1 147-E59 S20-S-2
      8  578 1305 (S01E34 L=221)   493    146        1 ( 505/1283- 637/1324)  18.4 E39-E29 S01-S02
      9 1036 1252 (N07E06 L=249)   310     90        0 ( 990/1219-1080/1276)  -9.5 E09-E02 N07-N07
     10  356 1150 (S15E46 L=209)   633    195        1 ( 301/1094- 439/1205)  38.7 E52-E38 S16-S13
     11  913 1148 (S02E09 L=246)   386    117        0 ( 858/1124- 976/1192)  -7.1 E14-E05 S01-S01
     12  493 1021 (S19E32 L=223)   818    245        3 ( 455/ 930- 532/1104) -60.9 E37-E28 S24-S15
     13  807  779 (S25E06 L=249)   218     29        0 ( 786/ 761- 830/ 800)  56.3 E08-E04 S25-S24
     14 1583  574 (S13W49 L=304)   360    107        0 (1559/ 523-1593/ 626) -63.4 W45-W54 S16-S11
     15  976  361 (S46W24 L=279)   932    155        4 ( 910/ 323-1050/ 391)  48.8 W17-W32 S46-S46
  

    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