Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1366 1518 (N28W23 L=113)   312     50        0 (1336/1493-1395/1544) -36.9 W20-W24 N26-N30
      2 1401 1445 (N23W24 L=115)   343     70        1 (1362/1423-1428/1472)  31.0 W21-W26 N21-N25
      3  536 1440 (N21E34 L= 57)   420    125        3 ( 480/1418- 578/1470)  -7.1 E38-E30 N19-N23
      4  343 1442 (N22E50 L= 40)   343     42        1 ( 330/1413- 359/1466)  90.0 E51-E48 N20-N23
      5 1564 1299 (N15W35 L=125)   242     68        1 (1549/1262-1580/1339) -90.0 W33-W35 N12-N17
      6  369 1310 (N13E45 L= 45)   316     53        2 ( 344/1286- 397/1334)  45.0 E47-E42 N11-N14
      7  293 1193 (N06E51 L= 40)   539    178        1 ( 274/1139- 326/1286) -68.2 E53-E47 N02-N12
      8  157 1163 (N05E66 L= 24)  1525    218        2 ( 117/1100- 192/1229)  37.9 E72-E61 N01-N08
      9  975 1129 (N02E03 L= 87)   570    154        3 ( 933/1081-1004/1198)  63.4 E05-E01 N00-N06
     10 1226 1019 (S04W12 L=103)   287     73        2 (1186/ 997-1261/1046) -11.3 W09-W14 S04-S02
     11  167  937 (S09E64 L= 27)   429     70        0 ( 149/ 913- 188/ 976) -38.7 E66-E61 S10-S06
     12 1065  891 (S12W03 L= 93)   224     83        2 (1039/ 865-1092/ 917)  45.0 W01-W04 S13-S10
     13 1303  876 (S12W18 L=108)   208     91        0 (1258/ 865-1352/ 889)   0.0 W14-W20 S12-S11
     14 1791  852 (S11W55 L=145)   406    135        0 (1768/ 823-1818/ 881)  26.6 W52-W57 S12-S09
     15  860  838 (S15E10 L= 81)   189     81        0 ( 816/ 825- 897/ 856)   0.0 E12-E07 S16-S14
     16 1376  770 (S18W23 L=114)   671    188        1 (1287/ 733-1437/ 847)  37.9 W17-W26 S20-S13
     17  119  801 (S16E73 L= 18)  1198    162        1 ( 101/ 753- 136/ 835) -78.7 E76-E69 S19-S14
     18  933  733 (S22E05 L= 85)   794    169        2 ( 900/ 642- 968/ 817)  84.8 E07-E02 S27-S16
     19  287  664 (S26E55 L= 36)  2682    560        5 ( 228/ 506- 376/ 809)  39.3 E66-E44 S35-S17
     20  638  746 (S21E25 L= 66)   396     87        1 ( 601/ 715- 690/ 775)  26.6 E27-E21 S23-S19
     21 1302  652 (S26W20 L=110)  1252    451        1 (1180/ 610-1513/ 737)   9.9 W11-W34 S28-S20
     22  568  545 (S34E33 L= 57)   306     91        1 ( 550/ 505- 586/ 589)  63.4 E35-E30 S37-S31
     23 1053  520 (S36W03 L= 94)   391     95        0 (1011/ 480-1094/ 563)  45.0 W00-W06 S38-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