Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  846 1552 (N43E04 L=156)   323     75        0 ( 811/1531- 891/1574) -29.7 E07-E01 N40-N45
      2 1707 1485 (N21W62 L=222)  3629    532        8 (1584/1409-1823/1546) -24.6 W54-W72 N13-N27
      3 1330 1318 (N19W25 L=185)   698    205        3 (1257/1256-1410/1355)  -5.2 W21-W28 N14-N22
      4 1587 1291 (N12W42 L=202)   265    110        1 (1542/1268-1621/1321)   7.1 W39-W44 N10-N15
      5  354 1270 (N30E47 L=113)   348     68        0 ( 319/1259- 387/1283)  -8.1 E51-E44 N29-N31
      6  753 1135 (N17E15 L=145)   542     96        2 ( 726/1078- 781/1189) -81.9 E17-E14 N13-N20
      7 1826  988 (S11W58 L=218)  1869    439        9 (1740/ 852-1898/1134)  37.9 W51-W71 S22-S00
      8 1227 1034 (N04W12 L=172)   204     74        0 (1186/1020-1258/1054)   0.0 W10-W14 N02-N06
      9 1254  910 (S04W12 L=172)   553    141        1 (1184/ 886-1311/ 941) -15.9 W08-W15 S06-S01
     10 1341  771 (S14W16 L=176)   980    195        2 (1301/ 682-1378/ 884)  67.4 W15-W18 S20-S06
     11 1680  772 (S21W43 L=203)   607    119        1 (1644/ 744-1714/ 802)  -8.1 W39-W46 S23-S18
     12  915  534 (S23E16 L=144)   496    188        0 ( 899/ 452- 935/ 617)  71.6 E15-E17 S29-S17
     13 1195  504 (S29W03 L=163)  1117    208        3 (1098/ 448-1261/ 585)  28.3 E02-W07 S35-S22
     14  460  451 (S23E55 L=105)   903    169        3 ( 409/ 417- 503/ 487)  12.1 E58-E53 S26-S20
  

    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