Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1429 1799 (N54W62 L= 52)   698     49        1 (1411/1766-1453/1825)  14.0 W54-W70 N51-N56
      2 1345 1786 (N54W47 L= 37)   529     64        0 (1322/1756-1372/1807)  39.8 W43-W52 N51-N56
      3  459 1531 (N41E46 L=304)   801    123        2 ( 395/1506- 519/1549)   3.8 E54-E39 N38-N42
      4  833 1493 (N36E11 L=339)   483    143        0 ( 807/1426- 865/1548)  66.0 E12-E08 N31-N40
      5  574 1497 (N38E33 L=317)   346     62        1 ( 550/1465- 606/1522) -53.1 E35-E29 N35-N39
      6 1076 1450 (N31W07 L=357)  1020    208        5 ( 990/1413-1179/1491) -21.0 W00-W13 N28-N34
      7 1740 1361 (N19W58 L= 48)   369     66        1 (1725/1329-1763/1396)  68.2 W56-W59 N16-N21
      8 1108 1245 (N18W07 L=357)   791    268        3 (1036/1147-1212/1304)  33.7 W01-W14 N12-N21
      9 1635 1153 (N08W42 L= 32)   436     66        0 (1606/1115-1659/1186) -76.0 W39-W43 N05-N09
     10 1547 1096 (N05W35 L= 24)   553    136        2 (1469/1080-1604/1117) -12.5 W29-W38 N03-N06
     11 1788  791 (S17W55 L= 45)   453     67        0 (1770/ 771-1814/ 819) -45.0 W53-W58 S18-S14
     12 1239  608 (S23W11 L=  1)   234     79        0 (1207/ 579-1274/ 636)  36.9 W09-W13 S24-S21
     13  571  507 (S26E37 L=312)   592    165        1 ( 515/ 443- 612/ 558) -69.4 E40-E35 S30-S22
     14  457  482 (S28E49 L=301)   804    189        0 ( 436/ 398- 500/ 557)  40.6 E56-E41 S34-S22
     15 1347  392 (S41W21 L= 11)   634    146        0 (1278/ 372-1413/ 413)  10.3 W15-W26 S41-S39
  

    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