Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  327 1609 (N11E70 L= 22)  1452    257        3 ( 288/1562- 354/1645) -24.4 E77-E64 N08-N13
      2 1058 1452 (N18E10 L= 82)   669    211        0 (1036/1357-1079/1555) -61.7 E13-E06 N12-N25
      3 1426 1464 (N31W12 L=104)   521     71        2 (1397/1423-1449/1497) -45.0 W09-W13 N28-N32
      4 1230 1355 (N17W02 L= 94)   788    242        2 (1150/1241-1274/1454) -36.9 E05-W07 N11-N21
      5  636 1336 (N01E31 L= 61)   230     39        1 ( 619/1312- 653/1365) -33.7 E32-E29 N00-N02
      6  172 1271 (S12E69 L= 23)   789    123        1 ( 148/1234- 198/1328)  90.0 E71-E66 S14-S08
      7 1775 1096 (N20W45 L=137)   503     93        0 (1740/1075-1814/1115)  33.7 W42-W48 N18-N22
      8 1057 1030 (S05W02 L= 94)   320     62        0 (1032/ 992-1081/1070)  90.0 W00-W02 S08-S02
      9  394  859 (S32E37 L= 55)  2763    640        8 ( 213/ 747- 546/1015)  43.8 E54-E27 S43-S19
     10 1804  762 (N04W59 L=151)  1127    277        1 (1713/ 727-1878/ 817)  32.7 W51-W66 N00-N09
     11  756  699 (S32E07 L= 85)   896    242        0 ( 687/ 613- 836/ 808)  72.6 E09-E04 S39-S23
     12 1109  713 (S21W14 L=106)   728    207        1 ( 994/ 660-1185/ 774)  54.0 W08-W16 S26-S15
     13 1372  697 (S14W30 L=122)   290    120        1 (1334/ 663-1427/ 737)  -7.1 W26-W34 S15-S12
     14 1762  656 (S03W61 L=153)   404     83        0 (1729/ 628-1789/ 680)  45.0 W58-W62 S05-S01
     15 1315  635 (S19W29 L=121)   420    103        0 (1260/ 602-1374/ 669)  54.5 W26-W31 S22-S15
     16 1134  552 (S29W22 L=114)   220     69        0 (1094/ 542-1171/ 565)  36.9 W19-W23 S30-S27
     17 1639  501 (S15W58 L=150)   566    114        1 (1598/ 481-1684/ 544)  56.3 W54-W60 S17-S11
     18  552  480 (S54E18 L= 74)   277     20        0 ( 533/ 464- 576/ 497)  21.8 E20-E15 S55-S52
     19 1403  372 (S30W48 L=140)  1660    256        4 (1298/ 337-1500/ 415)  36.9 W41-W53 S34-S24
     20 1570  348 (S25W62 L=154)   619     55        1 (1539/ 313-1606/ 374)  78.7 W59-W64 S27-S22
  

    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