Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1482 1572 (N25W42 L=187)   414    117        0 (1418/1551-1526/1602)  -6.3 W37-W47 N23-N26
      2 1540 1465 (N17W42 L=187)  1223    329        0 (1404/1417-1674/1522) -22.8 W34-W53 N13-N23
      3  240 1292 (N30E54 L= 91)  1576    213        2 ( 193/1207- 312/1390)  45.0 E59-E47 N25-N35
      4  496 1338 (N28E30 L=115)   563    151        0 ( 439/1278- 538/1388) -45.0 E34-E26 N24-N32
      5  874 1316 (N20E04 L=141)   958    384        2 ( 710/1265-1026/1351) -17.5 E14-W05 N17-N24
      6  136 1219 (N27E68 L= 77)  1225    104        1 (  89/1180- 179/1249) -12.8 E83-E60 N24-N29
      7  461 1074 (N13E34 L=111)   999    338        0 ( 363/ 985- 524/1183)  31.6 E42-E28 N08-N18
      8 1158 1142 (N05W10 L=154)   263     76        0 (1130/1099-1187/1173) -68.2 W08-W10 N02-N07
      9 1898 1042 (S13W63 L=208)  2566    226        9 (1866/ 966-1950/1145) -67.4 W59-W72 S18-S06
     10 1556 1087 (S04W33 L=178)   210     54        0 (1544/1053-1568/1118) -90.0 W32-W33 S06-S02
     11 1416 1052 (S04W23 L=168)   281     67        1 (1393/1023-1443/1083) -63.4 W21-W24 S05-S01
     12 1182 1011 (S02W09 L=153)   259     72        0 (1156/ 986-1213/1039) -18.4 W07-W10 S03-N00
     13  252  955 (N10E53 L= 92)   918    146        1 ( 227/ 889- 287/1020) -69.4 E54-E50 N05-N13
     14 1748  911 (S18W46 L=191)   700    164        1 (1728/ 849-1776/ 993)  76.0 W44-W48 S21-S13
     15 1842  963 (S17W56 L=200)   420     45        0 (1823/ 930-1860/ 991)  45.0 W53-W58 S18-S14
     16 1539  913 (S14W30 L=174)   326    100        0 (1498/ 886-1567/ 954)  26.6 W26-W31 S15-S11
     17  658  820 (S05E25 L=120)   218     57        0 ( 646/ 784- 671/ 854)  53.1 E26-E23 S06-S02
     18 1237  797 (S16W09 L=153)   426    105        0 (1195/ 765-1292/ 833)  15.9 W05-W12 S17-S14
     19  228  691 (S05E63 L= 82)  3711    285       15 ( 143/ 587- 299/ 764) -50.7 E73-E55 S11-N00
     20  334  678 (S08E52 L= 92)  1308    326        2 ( 267/ 609- 377/ 755) -60.9 E56-E48 S11-S02
     21  421  713 (S07E44 L=101)   344     70        0 ( 385/ 684- 454/ 748) -53.1 E45-E41 S09-S04
     22 1018  678 (S19E07 L=138)   601    187        0 ( 937/ 638-1106/ 721)   4.8 E12-W00 S19-S17
     23 1528  634 (S31W27 L=172)   476    106        0 (1498/ 588-1559/ 694)  50.2 W24-W29 S33-S27
     24  446  636 (S12E44 L=100)   503     96        2 ( 408/ 608- 483/ 678) -59.0 E46-E42 S13-S08
     25 1148  590 (S27E00 L=144)   408    149        0 (1084/ 572-1225/ 612)  -6.3 E04-W05 S27-S24
     26 1092  221 (S54E16 L=128)   782     83        0 (1042/ 189-1140/ 246)  15.3 E22-E11 S55-S51
  

    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