Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  702 1636 (N51E04 L=147)   262     41        1 ( 684/1616- 717/1661)  26.6 E05-E01 N49-N52
      2 1007 1552 (N36W15 L=166)   368    162        1 ( 927/1523-1073/1573)  -9.5 W08-W20 N34-N36
      3  229 1352 (N44E58 L= 92)   452     38        1 ( 206/1329- 253/1371) -18.4 E62-E53 N42-N45
      4 1694 1195 (S04W45 L=196)   305     71        0 (1679/1162-1711/1236)  36.9 W43-W47 S05-S01
      5 1378 1076 (S01W21 L=171)   644    142        1 (1303/1051-1442/1105) -14.0 W16-W25 S02-N00
      6  141  930 (N19E68 L= 82)  2201    176        5 (  83/ 866- 214/ 998) -20.9 E80-E58 N15-N23
      7 1496  781 (S21W21 L=172)   400    158        0 (1468/ 727-1510/ 864)  60.3 W18-W23 S24-S16
      8 1645  776 (S26W32 L=183)   545    102        0 (1596/ 744-1690/ 809)   6.3 W27-W36 S27-S24
      9  302  723 (N05E55 L= 96)   542    128        0 ( 267/ 680- 322/ 788)  36.9 E59-E51 N02-N08
     10 1232  722 (S17W04 L=154)   239    123        1 (1178/ 683-1270/ 761) -56.3 W01-W05 S19-S13
     11 1157  699 (S16E01 L=149)   336    156        2 (1111/ 656-1204/ 751) -81.9 E03-W01 S19-S12
     12 1362  602 (S28W09 L=159)   595    135        1 (1293/ 568-1424/ 644)  -5.7 W03-W13 S28-S26
     13  586  557 (S10E39 L=111)  1623    443        2 ( 436/ 463- 735/ 622) -35.2 E48-E31 S18-S05
     14  811  512 (S18E27 L=124)   266     83        1 ( 791/ 479- 842/ 555)  31.0 E28-E23 S20-S16
     15  342  436 (S13E68 L= 82)  1323    123        4 ( 324/ 375- 361/ 499)  25.3 E82-E62 S17-S08
     16 1178  355 (S39E11 L=140)  1419    361        2 (1059/ 257-1260/ 478)  24.4 E23-E01 S44-S32
     17  938  363 (S31E26 L=125)   745    236        3 ( 905/ 249- 979/ 454)  42.9 E34-E19 S39-S25
     18 1335  307 (S49E02 L=149)   399     52        1 (1304/ 283-1367/ 333)  11.3 E04-W01 S51-S47
     19  762  184 (S40E53 L= 97)   904     97        1 ( 744/ 132- 786/ 228)  24.0 E65-E47 S44-S36
     20  870  204 (S41E42 L=108)   382     55        2 ( 843/ 187- 898/ 222) -11.3 E44-E38 S43-S39
     21 1074  173 (S51E31 L=119)   709     88        1 (1030/ 147-1103/ 205)  15.3 E37-E26 S54-S48
     22  959  161 (S48E41 L=109)  1827    116        2 ( 913/ 116-1014/ 199)  11.3 E49-E33 S52-S43
  

    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