Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1586 1528 (N33W47 L= 40)   522    113        0 (1539/1500-1634/1556) -29.7 W43-W50 N30-N35
      2  423 1481 (N35E46 L=307)  1482    396        2 ( 336/1393- 517/1551) -28.8 E57-E35 N28-N39
      3 1038 1464 (N32W03 L=356)   218     65        0 (1006/1446-1077/1477)  11.3 W00-W05 N31-N33
      4 1443 1419 (N27W31 L= 25)   627    182        1 (1365/1377-1528/1443) -22.6 W25-W37 N23-N29
      5  866 1281 (N21E09 L=344)  2378    685        7 ( 564/1101-1047/1416) -31.2 E32-W01 N08-N30
      6  333 1187 (N15E49 L=305)  1074    245        6 ( 304/1088- 369/1294)  90.0 E51-E45 N09-N22
      7 1681 1226 (N13W47 L= 40)   871    227        0 (1598/1146-1763/1289) -37.6 W40-W53 N07-N17
      8  506 1200 (N16E34 L=319)   250     95        0 ( 480/1166- 526/1246) -51.3 E36-E32 N14-N19
      9  157  926 (S02E69 L=284)   773    234        0 ( 119/ 905- 200/ 945)   7.6 E77-E62 S03-N00
     10 1399  860 (S07W23 L= 16)   501    143        0 (1338/ 818-1457/ 907) -32.0 W19-W27 S10-S04
     11  903  691 (S16E09 L=344)   999    299        3 ( 782/ 577-1004/ 816)  41.4 E18-E01 S23-S08
     12 1548  758 (S15W34 L= 27)   238     48        0 (1517/ 744-1571/ 775)   0.0 W31-W35 S15-S13
     13 1083  500 (S30W02 L=355)  1830    404        3 ( 955/ 371-1258/ 603)  36.0 E08-W14 S39-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