Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  455 1665 (N59E55 L= 29)   798     88        0 ( 418/1638- 503/1685)   8.7 E61-E46 N56-N60
      2  908 1592 (N45W02 L= 86)   275     58        0 ( 875/1577- 946/1603) -11.3 W00-W05 N43-N46
      3 1624 1420 (N19W50 L=134)   547    197        0 (1557/1358-1687/1454) -49.4 W44-W53 N14-N21
      4  637 1409 (N36E22 L= 61)   423    111        0 ( 581/1391- 696/1422)  -6.3 E26-E17 N34-N37
      5 1339 1227 (N13W23 L=106)   233     75        1 (1298/1203-1373/1246)   0.0 W20-W25 N12-N14
      6  279 1059 (N17E53 L= 30)   530     49        2 ( 260/1026- 302/1090) -76.0 E55-E50 N15-N19
      7 1881 1008 (S11W65 L=148)   799     74        2 (1844/ 984-1919/1035)   5.2 W59-W71 S12-S09
      8 1375  683 (S20W17 L=101)   374    114        1 (1332/ 643-1414/ 731)  29.7 W13-W20 S22-S17
      9 1052  570 (S22E06 L= 78)   961    269        0 ( 959/ 493-1139/ 670)  29.7 E13-W01 S26-S16
     10 1526  567 (S32W28 L=112)   436    132        0 (1476/ 515-1567/ 621)  40.6 W24-W31 S34-S28
     11  574  570 (S16E37 L= 46)   432     92        0 ( 546/ 527- 614/ 603)  39.8 E40-E33 S18-S13
     12 1570  508 (S37W33 L=116)   446     92        0 (1531/ 487-1615/ 543)  14.0 W29-W37 S38-S35
     13 1095  462 (S31E05 L= 79)   915    345        0 ( 955/ 394-1233/ 539)  13.4 E16-W05 S33-S27
     14  680  428 (S27E35 L= 48)   555     92        0 ( 655/ 391- 704/ 466)  68.2 E36-E32 S29-S24
  

    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