Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  563 1635 (N17E48 L= 83)   913    400        3 ( 530/1544- 614/1736) -58.4 E51-E41 N11-N24
      2  916 1665 (N28E27 L=105)   306     69        1 ( 892/1638- 937/1696) -63.4 E28-E25 N25-N29
      3  632 1653 (N19E44 L= 87)   347    117        0 ( 605/1599- 676/1694) -82.9 E45-E42 N15-N23
      4  697 1524 (N13E34 L= 98)   613    222        1 ( 661/1429- 726/1615) -57.5 E37-E30 N07-N18
      5  473 1304 (S05E41 L= 91)   984    269        2 ( 435/1177- 508/1407) -59.7 E47-E37 S12-N00
      6 1231 1318 (N15W03 L=135)   362    137        2 (1206/1245-1262/1372) -77.5 W01-W05 N10-N19
      7 1263 1176 (N08W09 L=141)   224     78        2 (1226/1160-1308/1197)  21.8 W06-W11 N06-N09
      8 1548 1159 (N16W27 L=158)   290     52        2 (1525/1128-1570/1186) -76.0 W24-W28 N13-N17
      9  308  974 (S27E46 L= 86)  1005    351        3 ( 272/ 813- 346/1117) -78.1 E50-E42 S37-S18
     10 1816 1054 (N19W50 L=182)   452    141        0 (1773/1002-1844/1095) -23.2 W45-W53 N17-N20
     11  133 1036 (S26E65 L= 67)  1016    144        1 ( 112/ 988- 166/1079)  56.3 E67-E61 S29-S23
     12  580  985 (S20E25 L=106)   400    177        0 ( 510/ 926- 651/1041)  55.0 E28-E21 S25-S15
     13 1308 1022 (N01W16 L=147)   259     78        0 (1272/1004-1357/1039)  21.8 W13-W18 N00-N02
     14 1828  968 (N15W54 L=185)   725    157        5 (1790/ 920-1862/1012)  -6.3 W49-W58 N12-N17
     15 1406  952 (N00W23 L=155)   229     85        0 (1364/ 932-1445/ 967)  26.6 W21-W25 S02-N01
     16  758  916 (S20E12 L=119)   269     61        0 ( 723/ 892- 790/ 944)  63.4 E14-E10 S21-S17
     17 1762  846 (N06W51 L=183)   388    111        0 (1716/ 824-1793/ 877)  26.6 W47-W54 N04-N08
     18 1581  779 (S04W40 L=171)   346     84        1 (1540/ 759-1621/ 794)  31.0 W37-W42 S05-S02
     19 1045  677 (S25W12 L=143)  1197    450        2 ( 858/ 592-1277/ 779)  47.9 W02-W21 S35-S12
     20 1615  686 (S07W46 L=178)   351     80        1 (1599/ 646-1629/ 733) -68.2 W44-W47 S09-S04
     21 1650  477 (S16W60 L=192)  2122    369        3 (1540/ 410-1769/ 537)  47.0 W54-W70 S23-S08
     22 1333  279 (S38W51 L=182)  1786    419        5 (1254/ 196-1410/ 367)  -7.4 W39-W62 S39-S35
  

    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