Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  936 1797 (N52E26 L=223)   524     78        1 ( 898/1779- 981/1813)   0.0 E30-E21 N50-N54
      2  300 1513 (N20E65 L=184)  1470    240        4 ( 271/1469- 340/1571) -45.0 E69-E59 N17-N23
      3  744 1477 (N24E26 L=223)   276     69        0 ( 723/1444- 766/1518)  80.5 E26-E24 N21-N27
      4  389 1389 (N14E50 L=199)   336    150        1 ( 354/1347- 418/1420) -26.6 E54-E46 N11-N15
      5 1565 1248 (N21W33 L=282)   294    118        0 (1548/1188-1585/1289)  74.1 W32-W34 N17-N24
      6  182 1231 (N01E69 L=180)   566     68        0 ( 169/1200- 196/1258) -21.8 E71-E65 N00-N02
      7 1209 1186 (N12W09 L=258)   545    204        1 (1108/1161-1303/1224)   0.0 W02-W15 N11-N14
      8 1323  981 (N02W19 L=268)  1448    335        3 (1266/ 866-1414/1106) -69.0 W15-W23 S04-N09
      9  803  892 (S11E12 L=237)   787    278        2 ( 703/ 869- 884/ 934)  15.3 E18-E06 S13-S07
     10  393  889 (S17E41 L=208)   495    114        1 ( 361/ 847- 438/ 932)  78.7 E43-E36 S19-S14
     11  293  868 (S19E50 L=199)   516    153        0 ( 252/ 833- 351/ 916) -24.0 E53-E44 S21-S16
     12 1041  778 (S14W04 L=253)  1099    481        3 ( 909/ 721-1175/ 883)  21.8 E03-W13 S19-S07
     13 1406  697 (S14W29 L=278)  1183    267        3 (1325/ 575-1473/ 795)  76.0 W26-W33 S23-S07
     14 1201  505 (S30W21 L=269)   777    142        3 (1140/ 471-1294/ 535)  33.7 W16-W26 S32-S26
  

    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