Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  382 1474 (N37E52 L=160)   369     59        0 ( 359/1446- 411/1495) -20.6 E55-E47 N34-N38
      2  704 1374 (N29E20 L=192)  1303    336        2 ( 642/1263- 827/1451)  37.6 E24-E11 N21-N33
      3  537 1406 (N32E34 L=178)   280     82        0 ( 515/1375- 551/1437)  63.4 E35-E32 N29-N33
      4 1161 1375 (N26W12 L=224)   342    146        1 (1131/1340-1210/1436) -56.3 W10-W14 N23-N30
      5  277 1399 (N31E62 L=150)  1027    154        4 ( 218/1360- 330/1425)  -3.0 E72-E53 N28-N33
      6  861 1343 (N26E09 L=203)   655    171        3 ( 787/1306- 933/1380)  10.3 E14-E03 N23-N28
      7 1124 1289 (N21W08 L=221)   433    196        2 (1053/1233-1198/1338) -45.0 W04-W12 N16-N24
      8  474 1118 (N13E36 L=176)   262     17        1 ( 458/1096- 494/1140)  71.6 E37-E34 N11-N14
      9  361 1068 (N10E46 L=167)   415    150        1 ( 341/1021- 398/1130)  54.5 E47-E42 N07-N14
     10 1706  951 (S05W46 L=259)   768    167        2 (1637/ 912-1752/1004)  21.8 W40-W50 S07-S02
     11 1750  856 (S12W51 L=263)   494     29        0 (1728/ 829-1772/ 880)  33.7 W48-W53 S13-S10
     12 1179  621 (S22W07 L=220)   451    109        0 (1158/ 566-1208/ 670)  66.8 W05-W09 S25-S18
     13 1486  612 (S25W30 L=242)   328    135        1 (1439/ 557-1523/ 664)  54.5 W26-W32 S28-S21
     14  542  590 (S20E37 L=175)   369     95        0 ( 494/ 560- 579/ 615)  20.6 E41-E33 S22-S18
  

    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