Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1402 1757 (N59W28 L= 14)   398     55        1 (1380/1733-1421/1780)  26.6 W23-W33 N56-N61
      2  653 1751 (N44E49 L=297)   529     78        0 ( 621/1715- 686/1775) -78.7 E51-E46 N40-N46
      3  435 1630 (N31E61 L=285)  1307    144        1 ( 400/1574- 461/1691) -48.8 E67-E54 N27-N35
      4 1197 1582 (N39W05 L=350)   339     97        0 (1156/1547-1235/1617) -29.7 W01-W08 N36-N41
      5 1387 1430 (N31W20 L=  6)   363    121        0 (1356/1368-1423/1472) -56.3 W17-W22 N27-N33
      6 1840 1335 (N30W67 L= 52)   720     96        0 (1802/1296-1874/1368) -16.7 W61-W71 N27-N32
      7  484 1302 (N11E40 L=306)   684    126        1 ( 469/1233- 507/1366) -76.0 E42-E36 N06-N14
      8  860 1268 (N13E13 L=332)   621    236        1 ( 814/1153- 891/1365) -61.7 E17-E09 N06-N19
      9 1152 1135 (N09W06 L=352)   362    113        1 (1127/1077-1174/1189)  90.0 W05-W07 N05-N12
     10 1795 1066 (N12W55 L= 41)   622     80        2 (1756/1033-1822/1093) -23.2 W50-W58 N10-N13
     11 1075  910 (S06W04 L=350)   289     51        1 (1057/ 872-1091/ 943) -63.4 W03-W05 S07-S03
     12  759  702 (S23E13 L=332)   216     66        0 ( 718/ 685- 790/ 712)   0.0 E16-E11 S23-S21
     13 1331  582 (S23W27 L= 12)  2490    577        5 (1123/ 478-1593/ 677)  30.4 W13-W43 S32-S13
     14  560  567 (S35E28 L=317)   273     74        0 ( 545/ 529- 579/ 603) -78.7 E29-E27 S37-S32
     15  791  554 (S32E10 L=336)   494    122        1 ( 735/ 537- 856/ 580)   0.0 E14-E05 S33-S30
  

    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