Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  734 1186 (N23E12 L= 87)  1589    541        8 ( 509/1024- 904/1320) -53.8 E25-E05 N09-N36
      2 1102 1235 (N15W10 L=110)   200     64        1 (1074/1206-1130/1252)  11.3 W07-W12 N14-N16
      3 1925 1171 (S14W70 L=170)  2110    243        4 (1883/1096-1959/1249) -73.3 W61-W77 S19-S09
      4 1747 1019 (S15W44 L=144)   952    274        0 (1692/ 912-1773/1143)  39.8 W37-W49 S20-S09
      5  253  974 (N22E53 L= 46)   616    118        4 ( 227/ 915- 278/1019)  51.3 E56-E50 N18-N23
      6 1856  951 (S23W54 L=154)  1026    223        1 (1790/ 853-1907/1012)  17.4 W45-W62 S26-S21
      7 1170  908 (S04W05 L=104)   236     50        1 (1149/ 874-1189/ 935) -90.0 W03-W06 S06-S02
      8 1321  729 (S18W09 L=108)   937    371        2 (1260/ 551-1383/ 872)  46.8 W00-W15 S27-S11
      9 1517  786 (S21W22 L=122)   295    132        1 (1484/ 728-1547/ 839)  35.5 W18-W25 S23-S18
     10 1051  709 (S12E07 L= 92)   608    258        2 (1018/ 612-1103/ 809)  61.4 E10-E02 S17-S06
     11  584  506 (S12E42 L= 58)   533    200        1 ( 568/ 421- 598/ 600)  45.0 E47-E37 S16-S06
     12  293  534 (S05E66 L= 33)  1064    120        1 ( 250/ 507- 353/ 557) -24.0 E73-E60 S07-S02
     13 1330  538 (S30W04 L=104)   309    112        0 (1280/ 521-1390/ 555) -29.7 W01-W08 S33-S28
     14  339  441 (S11E68 L= 31)   592     53        2 ( 318/ 417- 354/ 469)  53.1 E72-E65 S13-S09
     15  449  388 (S16E60 L= 39)  1331    175        2 ( 403/ 321- 502/ 462)  63.4 E63-E56 S21-S11
  

    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