Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1010 1409 (N27W10 L=120)   497    165        0 ( 926/1381-1090/1449)  -9.5 W04-W16 N25-N28
      2  741 1415 (N35E07 L=103)   569    140        1 ( 677/1389- 811/1432) -16.7 E11-E01 N32-N37
      3 1480 1383 (N12W37 L=147)  1124    328        1 (1326/1340-1618/1413) -32.9 W28-W45 N05-N17
      4 1819 1339 (S01W63 L=173)  1079    199        2 (1760/1299-1862/1365) -21.8 W57-W69 S04-N01
      5 1224 1283 (N14W18 L=128)   456     80        2 (1193/1256-1272/1317) -53.1 W16-W20 N12-N16
      6 1769 1127 (S10W49 L=159)  2512    473        8 (1738/ 929-1841/1291)  53.6 W44-W62 S21-S02
      7  235  924 (N18E55 L= 54)   912    206        3 ( 185/ 883- 302/ 973) -31.0 E59-E49 N15-N21
      8 1517  869 (S17W24 L=134)   722    202        3 (1429/ 804-1585/ 921) -57.5 W19-W28 S22-S11
      9  736  704 (S05E25 L= 85)   304     74        1 ( 697/ 678- 775/ 727) -45.0 E27-E22 S07-S03
     10  999  615 (S17E12 L= 97)   347     70        1 ( 966/ 584-1030/ 642) -68.2 E14-E10 S19-S14
     11 1173  459 (S32E08 L=102)   414     54        1 (1156/ 426-1191/ 491)  53.1 E09-E05 S34-S29
     12  650  345 (S25E45 L= 64)  1326    280        2 ( 610/ 251- 710/ 438)  65.0 E49-E40 S33-S18
     13 1311  317 (S48E04 L=106)  3526    452        7 (1122/ 223-1424/ 407)   7.4 E23-W08 S54-S42
     14 1113  296 (S42E19 L= 91)   326     51        1 (1097/ 272-1129/ 324)  68.2 E20-E17 S44-S39
  

    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