Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1236 1880 (N70E09 L=198)   598     63        0 (1218/1846-1257/1914) -61.9 E15-E06 N63-N78
      2 1035 1671 (N41E15 L=192)   902    178        2 ( 982/1605-1086/1751) -32.7 E23-E08 N36-N46
      3  376 1490 (N15E57 L=149)   518     96        3 ( 340/1457- 410/1528)  63.4 E59-E55 N12-N18
      4 1358 1462 (N33W14 L=221)   769    181        1 (1295/1398-1423/1509) -16.7 W09-W19 N28-N35
      5 1574 1174 (N18W33 L=240)   515    183        0 (1548/1099-1621/1250) -48.8 W30-W37 N14-N22
      6 1344 1101 (N09W18 L=225)   327     98        0 (1309/1077-1369/1144)  90.0 W15-W19 N07-N12
      7 1841 1024 (N14W60 L=267)   648     68        2 (1811/ 996-1870/1054) -18.4 W56-W63 N13-N16
      8  384  891 (S21E41 L=166)  2412    436        6 ( 223/ 754- 516/1030)  36.9 E60-E31 S32-S09
      9 1274  672 (S17W23 L=229)   306     25        0 (1249/ 652-1300/ 693) -14.0 W20-W24 S18-S16
     10 1740  619 (S11W62 L=268)  1655    156        2 (1660/ 581-1801/ 660)  18.4 W53-W71 S15-S08
     11 1534  493 (S23W49 L=255)   329     45        0 (1510/ 472-1556/ 516)  56.3 W47-W49 S24-S21
     12  943  263 (S55W16 L=223)   849    112        1 ( 880/ 236- 990/ 293)  10.3 W09-W21 S57-S52
     13 1172  260 (S48W36 L=243)   415     50        1 (1148/ 239-1201/ 286) -20.6 W32-W40 S49-S46
     14  758  257 (S61E04 L=203)   557     92        0 ( 717/ 242- 798/ 279)  11.3 E09-W01 S64-S58
  

    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