Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1264 1594 (N41W08 L=158)   780    205        1 (1192/1530-1325/1644)  42.0 W02-W12 N34-N45
      2  786 1401 (N19E21 L=129)   221     93        0 ( 764/1361- 804/1448) -51.3 E23-E19 N16-N21
      3  543 1392 (N15E38 L=112)   257    103        1 ( 501/1372- 598/1404)  23.2 E40-E33 N13-N16
      4  419 1364 (N11E47 L=103)   370     67        1 ( 400/1324- 444/1395) -78.7 E48-E44 N08-N13
      5  738 1280 (N11E22 L=128)   892    233        3 ( 682/1215- 801/1335)  66.0 E25-E18 N06-N15
      6  822 1184 (N06E15 L=135)   233     78        2 ( 790/1144- 847/1219) -45.0 E17-E12 N04-N08
      7  145 1003 (S14E67 L= 83)   981    146        3 ( 131/ 944- 162/1054)  74.1 E70-E65 S18-S11
      8  442 1010 (S10E37 L=113)   236     86        1 ( 402/ 988- 476/1040)  31.0 E40-E35 S10-S07
      9  756  923 (S10E15 L=135)   898    215        1 ( 724/ 821- 796/1024) -70.0 E17-E11 S15-S04
     10 1245  989 (N01W14 L=164)   260     54        1 (1218/ 972-1278/1007) -18.4 W12-W15 N00-N02
     11 1442  909 (S01W28 L=177)   427     80        1 (1400/ 883-1493/ 936)  31.0 W24-W30 S02-N01
     12  296  592 (S40E52 L= 98)   615    168        0 ( 261/ 571- 332/ 618)  24.0 E56-E47 S41-S36
     13 1310  422 (S34W32 L=182)   275     47        0 (1282/ 402-1338/ 437)  56.3 W30-W33 S35-S31
     14 1420  374 (S35W43 L=193)   628    140        1 (1383/ 352-1472/ 411) -16.7 W38-W48 S36-S32
  

    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