Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1363 1340 (N16W29 L=211)   409     85        1 (1323/1308-1402/1373) -68.2 W27-W30 N13-N18
      2  946 1344 (N27W04 L=186)   373    147        0 ( 893/1295-1004/1366)   8.1 W00-W07 N25-N28
      3  451 1280 (N35E33 L=149)  1772    448        1 ( 299/1188- 634/1340)  -3.8 E49-E18 N30-N38
      4 1749 1249 (S01W53 L=236)   568     73        1 (1706/1227-1790/1267) -23.2 W49-W57 S02-N01
      5 1386 1154 (N05W24 L=207)   391     83        0 (1353/1116-1422/1197)  26.6 W21-W27 N03-N06
      6 1424  990 (S05W22 L=205)   472     97        1 (1400/ 931-1446/1030)  80.5 W20-W23 S08-S02
      7 1850  956 (S21W56 L=239)  1239    200        0 (1797/ 876-1907/1029)  18.4 W48-W65 S23-S17
      8 1875  821 (S31W60 L=242)   774    100        0 (1849/ 772-1900/ 877)  39.8 W55-W63 S33-S27
      9 1308  642 (S22W07 L=190)   929    293        0 (1193/ 573-1388/ 743)  18.4 E01-W14 S24-S18
     10  906  638 (S12E17 L=166)   271    104        0 ( 871/ 616- 953/ 672) -53.1 E18-E13 S13-S09
     11 1473  618 (S29W18 L=200)   333    106        0 (1443/ 575-1511/ 664)  23.2 W14-W21 S31-S26
     12 1616  527 (S41W29 L=211)  1219    248        0 (1525/ 448-1679/ 621)  29.7 W19-W35 S45-S35
     13  435  484 (S12E55 L=127)   989    142        1 ( 375/ 444- 495/ 530) -45.0 E60-E51 S15-S08
     14  908  378 (S29E26 L=156)   959    267        2 ( 835/ 287-1014/ 431)  12.5 E36-E18 S34-S26
     15 1280  360 (S42E03 L=180)   289     71        1 (1261/ 330-1295/ 401)  63.4 E04-W00 S44-S38
  

    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