Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  985 1931 (N65W50 L= 13)   709     79        1 ( 963/1899-1012/1963)   8.4 W39-W66 N61-N67
      2  898 1862 (N62W27 L=350)   816    112        2 ( 854/1818- 944/1891) -16.7 W21-W33 N57-N65
      3 1208 1749 (N41W38 L=  1)  2413    464        2 (1015/1704-1417/1792) -20.1 W21-W52 N33-N46
      4  815 1605 (N44W02 L=325)   368     98        0 ( 792/1555- 842/1638)  45.0 W00-W05 N40-N45
      5 1764 1499 (N11W66 L= 29)   686    103        0 (1733/1452-1790/1540)  80.5 W64-W68 N07-N13
      6 1592 1118 (S05W36 L=358)  2155    482        2 (1536/ 889-1624/1323)  58.2 W26-W42 S16-N06
      7  307 1141 (N26E46 L=277)   947    196        2 ( 234/1071- 360/1193) -56.3 E53-E40 N21-N30
      8 1894 1167 (S10W65 L= 28)   440     68        0 (1868/1140-1919/1187) -33.7 W61-W68 S12-S08
      9  142 1112 (N28E66 L=257)  1820    165        1 (  88/1054- 198/1169) -20.0 E80-E57 N23-N31
     10  779 1088 (N13E12 L=311)   647    198        2 ( 703/1047- 868/1150) -55.0 E15-E07 N08-N18
     11  270 1104 (N25E49 L=273)   700     79        2 ( 241/1057- 300/1146) -63.4 E52-E46 N21-N27
     12  375 1028 (N18E41 L=282)  1013    230        1 ( 276/ 958- 416/1109)  23.2 E50-E36 N14-N22
     13  356  867 (N09E45 L=277)   271     56        0 ( 336/ 833- 373/ 890) -76.0 E46-E43 N07-N11
     14  260  739 (N04E58 L=265)   758    152        0 ( 210/ 680- 302/ 773) -50.2 E62-E54 N00-N06
     15 1289  619 (S26W06 L=329)   492    177        0 (1232/ 558-1360/ 680)  21.8 W01-W11 S28-S23
     16 1761  575 (S44W47 L= 10)  1121    171        1 (1688/ 529-1827/ 628)   6.3 W37-W55 S45-S40
     17  367  536 (S10E57 L=266)   344     41        0 ( 345/ 521- 394/ 558) -14.0 E58-E54 S10-S08
     18 1397  382 (S46W08 L=331)   345     45        1 (1371/ 361-1421/ 405)   0.0 W05-W10 S47-S43
     19  748  262 (S36E44 L=278)   934    123        1 ( 694/ 219- 795/ 319)  14.0 E52-E36 S37-S32
  

    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