Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  909 1759 (N40E32 L=126)   834    112        0 ( 865/1737- 957/1782)  31.0 E36-E27 N36-N42
      2  998 1662 (N35E20 L=138)  1583    195        2 ( 950/1575-1048/1743) -34.7 E26-E13 N30-N40
      3  538 1714 (N27E57 L=101)   394     64        0 ( 518/1684- 562/1738) -16.7 E62-E52 N25-N28
      4 1582 1613 (N50W29 L=187)  1874    286        2 (1476/1560-1695/1698)  -8.4 W17-W44 N47-N54
      5  415 1322 (N01E46 L=113)  1532    211        2 ( 381/1231- 469/1407) -52.1 E50-E40 S04-N05
      6 1282 1331 (N21W08 L=166)   505    173        0 (1214/1265-1333/1387) -26.6 W02-W12 N17-N22
      7  532  967 (S17E29 L=129)   239     36        1 ( 517/ 939- 550/ 991) -63.4 E29-E27 S18-S15
      8 1032  834 (S14W05 L=163)  1022    327        1 ( 895/ 762-1174/ 882)  42.7 E01-W12 S20-S08
      9 1709  830 (N03W48 L=207)   320     81        0 (1684/ 792-1738/ 867) -23.2 W45-W52 N01-N04
     10 1486  800 (S05W33 L=191)   325    114        0 (1447/ 754-1509/ 842) -26.6 W29-W35 S07-S03
     11 1156  605 (S24W19 L=177)  1270    303        1 (1020/ 583-1300/ 647)  19.4 W10-W27 S27-S20
     12  453  570 (S45E32 L=126)   541     85        1 ( 415/ 544- 504/ 591)  21.8 E36-E26 S47-S42
     13 1530  369 (S28W59 L=217)   381     67        0 (1514/ 346-1562/ 398)  -7.1 W55-W63 S29-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