Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1404 1440 (N18W33 L=287)   993    203        1 (1306/1386-1478/1495)   8.1 W25-W39 N16-N20
      2 1681 1420 (N10W53 L=307)  1320    392        0 (1573/1367-1795/1467)  -7.4 W42-W65 N07-N12
      3  998 1323 (N20W05 L=259)   646    213        1 ( 891/1295-1112/1353) -21.0 E01-W12 N18-N24
      4  474 1139 (N20E32 L=222)   329     48        2 ( 452/1110- 492/1169)  45.0 E33-E30 N17-N21
      5  341 1140 (N23E42 L=211)   814    214        2 ( 263/1111- 417/1159)  -8.7 E49-E36 N20-N24
      6 1759 1047 (S12W48 L=302)   422     77        0 (1733/1019-1781/1089)  53.1 W45-W50 S13-S09
      7 1725  810 (S26W42 L=296)  1653    263        2 (1642/ 708-1769/ 939)  52.4 W34-W46 S30-S17
      8  966  778 (S10E08 L=246)   226     57        0 ( 942/ 756-1008/ 794)  14.0 E09-E05 S11-S09
      9  744  672 (S12E24 L=230)   226    104        0 ( 681/ 633- 775/ 709) -51.3 E27-E23 S15-S08
     10 1040  686 (S17E06 L=248)   298    100        0 ( 984/ 669-1088/ 705)  -9.5 E09-E03 S18-S16
     11 1523  472 (S44W24 L=278)   636     62        1 (1489/ 437-1549/ 506) -80.5 W20-W26 S47-S41
     12  590  322 (S31E50 L=204)  1718    325        2 ( 548/ 245- 635/ 423)  47.3 E58-E44 S36-S23
     13 1344  335 (S50W06 L=260)   762    122        3 (1318/ 290-1369/ 386)  83.7 W03-W09 S54-S45
     14 1122  315 (S45E13 L=241)   398     82        1 (1083/ 291-1152/ 343)   8.1 E16-E09 S47-S42
  

    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