Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  415 1595 (N12E59 L=167)  1068    230        0 ( 336/1534- 489/1649)  55.0 E64-E54 N07-N17
      2  964 1570 (N24E20 L=206)   362     85        0 ( 943/1525- 988/1606) -81.9 E21-E18 N20-N27
      3  610 1425 (N06E36 L=190)   513    101        1 ( 563/1403- 655/1447)  15.9 E39-E32 N04-N08
      4  338 1366 (S03E54 L=171)   324     46        1 ( 318/1345- 358/1394)  63.4 E56-E52 S04-N00
      5 1525 1285 (N24W23 L=249)   764    129        2 (1470/1234-1571/1365) -29.1 W17-W26 N20-N27
      6 1223 1291 (N15W04 L=230)   466    152        2 (1166/1230-1260/1358)  84.3 W02-W05 N09-N19
      7  430 1136 (S14E39 L=187)  1357    409        0 ( 285/1043- 518/1297)  58.6 E49-E34 S21-S03
      8  272 1122 (S18E52 L=174)   468    125        2 ( 244/1077- 312/1173)  66.8 E54-E49 S21-S14
      9 1122 1066 (S00W04 L=230)   231     57        2 (1099/1032-1146/1096) -14.0 W02-W06 S01-N01
     10  772 1053 (S10E15 L=211)   192     93        0 ( 726/1044- 820/1061)  21.8 E17-E12 S11-S09
     11  816 1017 (S11E11 L=214)   229    105        0 ( 763/ 990- 875/1033)   8.1 E14-E07 S12-S10
     12 1251  778 (S12W20 L=246)   508    130        3 (1192/ 750-1312/ 822)  29.7 W16-W23 S15-S09
     13  269  761 (S41E48 L=178)   672    139        1 ( 233/ 738- 318/ 791)   6.3 E51-E42 S42-S38
     14  853  752 (S25E02 L=224)   233     76        0 ( 838/ 708- 869/ 787) -68.2 E03-W00 S27-S22
     15 1061  676 (S24W12 L=238)   568    184        2 ( 979/ 647-1135/ 715)  16.7 W07-W17 S25-S19
     16  954  587 (S32W09 L=235)  1156    303        0 ( 815/ 510-1105/ 683)   0.0 E01-W21 S33-S29
     17 1169  579 (S26W23 L=248)   241     63        0 (1149/ 551-1198/ 613) -18.4 W19-W25 S26-S24
     18 1571  570 (S14W48 L=274)   724    111        1 (1528/ 521-1622/ 598)  56.3 W45-W51 S17-S11
     19 1436  305 (S32W55 L=281)   402     40        0 (1416/ 283-1461/ 321)  71.6 W53-W56 S33-S30
     20 1060  242 (S51W37 L=263)  2479    439        6 ( 996/ 165-1128/ 320) -19.3 W28-W48 S55-S45
     21 1359  266 (S37W53 L=279)   798    160        1 (1331/ 222-1390/ 308) -32.0 W48-W56 S40-S35
     22 1199  237 (S45W46 L=272)   786    104        2 (1167/ 206-1228/ 276) -29.7 W42-W49 S47-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