Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  934 1424 (N28W04 L=335)   302    112        0 ( 886/1390- 985/1457) -50.2 W01-W06 N24-N30
      2 1818 1225 (S04W58 L= 28)  3524    419        4 (1715/1021-1881/1357) -72.3 W52-W63 S17-N05
      3 1679 1305 (N04W48 L= 18)   409     54        0 (1647/1283-1707/1328)   9.5 W44-W50 N02-N04
      4  886 1310 (N22E02 L=329)   216     75        0 ( 842/1299- 926/1323) -26.6 E04-W00 N20-N22
      5 1299 1281 (N11W21 L=352)   360    111        0 (1239/1260-1352/1302) -39.8 W18-W24 N08-N13
      6 1928 1199 (S09W72 L= 43)  2801    256        5 (1894/1092-1954/1299)  80.5 W66-W79 S14-S02
      7 1523  945 (S13W28 L=358)   246     36        0 (1498/ 926-1547/ 967)   0.0 W25-W29 S14-S11
      8 1267  657 (S24W06 L=337)  3400   1022        2 ( 900/ 362-1596/ 877)  15.3 E25-W31 S34-S18
      9  180  785 (N06E65 L=265)  2506    227        2 ( 114/ 733- 282/ 838)  -4.4 E80-E54 N02-N09
     10 1044  787 (S11E04 L=327)   378    153        0 ( 970/ 752-1111/ 831)   7.1 E08-W00 S11-S09
     11  568  527 (S16E41 L=290)   241     14        0 ( 547/ 507- 586/ 546) -63.4 E41-E39 S17-S14
     12  574  330 (S29E52 L=279)   373     51        2 ( 545/ 313- 600/ 350) -45.0 E54-E49 S29-S26
     13  530  308 (S29E58 L=272)   390     26        1 ( 514/ 288- 552/ 327)   9.5 E61-E55 S30-S27
  

    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