Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1000 1855 (N47E36 L=  0)   531     61        0 ( 970/1837-1032/1873)  78.7 E38-E32 N44-N49
      2 1063 1703 (N37E20 L= 16)  2122    462        5 ( 995/1575-1152/1841) -36.0 E31-E09 N29-N47
      3  503 1595 (N15E51 L=345)  1403    417        2 ( 452/1456- 558/1718) -39.8 E59-E40 N07-N22
      4  338 1532 (N07E63 L=333)  2030    190        4 ( 279/1469- 373/1611)  90.0 E68-E58 N02-N12
      5 1715 1460 (N43W38 L= 74)   464     77        0 (1684/1441-1747/1479)   9.5 W34-W41 N41-N45
      6 1524 1328 (N27W22 L= 58)   323    143        0 (1473/1263-1551/1381) -45.0 W17-W24 N22-N28
      7 1159 1349 (N17E01 L= 35)   194     33        0 (1140/1325-1177/1377) -45.0 E02-W00 N15-N18
      8  998 1245 (N06E07 L= 29)   258     32        0 ( 978/1217-1020/1275)  90.0 E08-E06 N04-N08
      9  353 1222 (S11E48 L=348)   357     62        0 ( 332/1191- 375/1259)  78.7 E49-E46 S12-S07
     10 1261 1048 (N03W12 L= 48)   351    160        3 (1195/1026-1316/1077)  23.2 W08-W15 N00-N05
     11 1751  944 (N12W48 L= 84)  2031    431        6 (1679/ 809-1812/1064) -36.3 W40-W56 N05-N16
     12 1347 1031 (N04W18 L= 54)   226     16        0 (1328/1009-1365/1054)  71.6 W16-W18 N02-N05
     13  216 1003 (S26E55 L=341)   497     94        0 ( 201/ 956- 230/1052)  90.0 E56-E53 S29-S22
     14 1824  882 (N11W57 L= 93)  1032    159        1 (1806/ 814-1844/ 952) -53.1 W54-W61 N07-N15
     15  758  894 (S19E12 L= 24)   220     99        0 ( 706/ 879- 813/ 905)  15.9 E15-E08 S20-S18
     16 1702  872 (N06W46 L= 82)   364     59        0 (1682/ 839-1723/ 903)  90.0 W44-W47 N04-N08
     17  500  813 (S31E28 L=  8)   229     43        0 ( 476/ 791- 520/ 837)  63.4 E29-E26 S32-S28
     18  877  750 (S24E01 L= 35)   586    175        0 ( 792/ 724- 964/ 790)  45.0 E05-W03 S27-S19
     19 1033  598 (S29W14 L= 50)   344     56        2 ( 997/ 576-1066/ 623)  11.3 W11-W16 S30-S27
     20  807  535 (S40W01 L= 37)   471    108        1 ( 747/ 520- 866/ 554)  29.7 E02-W05 S41-S37
     21 1302  227 (S42W53 L= 89)   591     66        0 (1264/ 212-1333/ 241)  36.9 W50-W55 S43-S40
  

    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