Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1355 1577 (N31W25 L=121)  1519    403        4 (1177/1484-1525/1678) -25.6 W13-W36 N24-N38
      2  465 1512 (N30E40 L= 57)   783    168        0 ( 416/1442- 498/1569) -48.0 E46-E35 N24-N34
      3 1223 1449 (N23W14 L=110)   463    149        1 (1190/1389-1240/1507) -76.0 W12-W15 N18-N26
      4 1105 1463 (N24W06 L=103)   323    114        0 (1054/1442-1154/1480)   0.0 W03-W09 N22-N24
      5 1334 1287 (N12W20 L=116)   505    212        0 (1317/1184-1350/1392)  81.3 W18-W20 N05-N18
      6 1866 1304 (N13W65 L=161)   679     78        2 (1835/1263-1896/1338) -45.0 W61-W68 N10-N15
      7  198  755 (S15E63 L= 33)  3934    566        9 ( 118/ 502- 259/1029)  73.8 E75-E60 S30-N01
      8  774  960 (S06E15 L= 81)   250     52        2 ( 744/ 931- 799/ 993)  56.3 E16-E13 S07-S03
      9 1919  942 (S08W68 L=164)   778     85        1 (1901/ 907-1944/ 991) -35.5 W64-W72 S10-S05
     10  828  921 (S08E12 L= 84)   479     90        2 ( 799/ 874- 857/ 961) -80.5 E13-E10 S11-S05
     11 1863  822 (S16W62 L=159)  2295    247        3 (1783/ 730-1942/ 892)  32.0 W55-W74 S21-S11
     12  335  843 (S11E47 L= 49)   996    136        4 ( 277/ 808- 404/ 888)  20.0 E52-E40 S12-S08
     13  815  834 (S14E13 L= 83)   242     72        0 ( 777/ 816- 849/ 857) -14.0 E15-E11 S14-S12
     14  515  687 (S21E35 L= 61)  1934    522        1 ( 349/ 625- 650/ 822)  -5.0 E48-E24 S25-S13
     15 1898  766 (S19W70 L=166)   689     72        0 (1884/ 727-1911/ 807)  90.0 W67-W72 S21-S16
     16 1426  665 (S25W26 L=122)   235     79        0 (1408/ 622-1447/ 697)  78.7 W25-W27 S28-S23
     17 1239  555 (S32W14 L=110)   208     68        1 (1202/ 544-1280/ 572)  -9.5 W10-W16 S32-S30
     18  873  395 (S43E14 L= 82)   648    189        2 ( 796/ 356- 957/ 451)  25.0 E21-E06 S45-S38
     19  694  299 (S49E35 L= 61)   307     58        1 ( 666/ 279- 729/ 311)   8.1 E37-E30 S51-S48
     20 1275  208 (S61W27 L=123)   550     56        2 (1250/ 188-1306/ 239) -12.5 W22-W31 S63-S57
     21 1188  199 (S62W16 L=112)   486     49        0 (1165/ 169-1210/ 230) -41.2 W12-W20 S65-S58
  

    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