Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  561 1666 (N58E35 L= 10)  2696    295        4 ( 452/1591- 690/1724)  10.1 E51-E17 N52-N61
      2  866 1576 (N44E01 L= 43)   705    137        2 ( 796/1551- 939/1597) -26.6 E06-W04 N41-N47
      3 1321 1551 (N33W33 L= 77)   311     50        1 (1290/1524-1345/1571) -71.6 W30-W35 N31-N34
      4 1098 1541 (N37W16 L= 60)   647    196        0 (1013/1520-1198/1558) -12.1 W09-W23 N35-N38
      5  272 1272 (N31E56 L=348)   516     96        0 ( 228/1254- 329/1287)  -4.4 E62-E49 N30-N32
      6  795 1110 (N15E13 L= 32)   685    194        0 ( 752/1021- 818/1186) -84.8 E14-E11 N09-N20
      7  299 1110 (N21E51 L=353)   414     62        2 ( 282/1075- 326/1139) -63.4 E52-E48 N18-N22
      8  727  984 (N09E19 L= 26)   290     72        1 ( 693/ 965- 765/1002)  11.3 E21-E16 N07-N09
      9 1831  867 (S19W57 L=101)  1229    228        1 (1785/ 779-1872/ 985)  50.7 W51-W62 S23-S12
     10 1602  725 (S23W34 L= 78)  1340    266        1 (1499/ 660-1667/ 824)  26.6 W25-W39 S26-S17
     11 1157  680 (S16W02 L= 47)   626    142        0 (1127/ 618-1200/ 745)  54.5 W00-W05 S20-S12
     12 1617  618 (S31W35 L= 80)  1038    300        1 (1491/ 545-1717/ 696)  14.0 W24-W45 S33-S27
     13 1234  536 (S28W05 L= 50)   595    116        1 (1192/ 493-1274/ 582) -63.4 W03-W07 S31-S23
  

    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