Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  915 1420 (N28W03 L=335)   282    101        0 ( 871/1386- 962/1454) -56.3 W00-W04 N24-N30
      2 1804 1222 (S04W56 L= 28)  3552    434        4 (1704/1017-1869/1352) -72.3 W50-W61 S17-N05
      3 1920 1204 (S08W71 L= 43)  3610    288        2 (1883/1083-1949/1324)  49.8 W65-W79 S15-S01
      4 1663 1296 (N03W46 L= 18)   383     64        0 (1631/1269-1693/1321)   8.1 W42-W49 N02-N04
      5  860 1302 (N22E03 L=328)   220    108        0 ( 798/1287- 904/1316)  -8.1 E07-W00 N20-N22
      6 1286 1273 (N11W21 L=352)   263     81        0 (1236/1250-1323/1296) -45.0 W18-W22 N09-N13
      7 1574 1116 (S04W35 L=  6)   235     59        1 (1537/1094-1599/1131) -26.6 W32-W36 S05-S03
      8 1509  941 (S13W27 L=358)   228     32        2 (1487/ 922-1533/ 963) -33.7 W25-W28 S13-S11
      9 1251  652 (S24W05 L=337)  3307   1022        3 ( 889/ 372-1584/ 874)  14.0 E26-W30 S33-S17
     10  172  787 (N06E67 L=265)  2364    203        4 ( 112/ 738- 267/ 838)  -2.1 E83-E56 N02-N09
     11 1017  779 (S11E06 L=326)   418    184        0 ( 926/ 748-1091/ 827)   0.0 E11-W00 S11-S09
     12  558  523 (S16E42 L=290)   274     27        0 ( 537/ 503- 579/ 543) -71.6 E42-E40 S17-S14
     13  526  305 (S29E60 L=272)  1191    151        3 ( 464/ 256- 589/ 349)   6.6 E76-E50 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