Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  930 1434 (N28W04 L=334)   239     78        0 ( 893/1402- 964/1461) -59.0 W01-W05 N25-N30
      2 1803 1243 (S03W56 L= 27)  4119    539        5 (1633/1023-1890/1358) -72.3 W42-W68 S17-N05
      3  894 1312 (N22E01 L=329)   210     74        0 ( 853/1301- 934/1326) -26.6 E03-W01 N20-N22
      4 1309 1283 (N11W22 L=352)   347    104        0 (1254/1262-1359/1303) -38.7 W19-W24 N08-N13
      5 1930 1129 (S13W70 L= 40)   777     64        1 (1914/1094-1950/1166) -76.0 W67-W73 S14-S10
      6 1596 1129 (S04W36 L=  7)   257     63        2 (1564/1103-1618/1148) -45.0 W34-W37 S05-S02
      7 1529  951 (S12W28 L=358)   226     45        0 (1502/ 931-1551/ 972)   0.0 W26-W29 S13-S11
      8 1301  678 (S23W09 L=339)  2575    795        1 ( 972/ 500-1599/ 841)   7.4 E15-W31 S26-S20
      9  193  781 (N05E64 L=266)  2308    232        3 ( 118/ 732- 301/ 839)  -6.6 E79-E53 N01-N08
     10 1050  789 (S11E04 L=327)   394    155        1 ( 971/ 755-1120/ 835)   0.0 E08-W01 S11-S09
     11  574  528 (S16E40 L=290)   243     25        1 ( 553/ 508- 592/ 548) -45.0 E41-E38 S17-S14
     12  927  434 (S30E21 L=309)   391    106        0 ( 906/ 382- 961/ 476)  35.5 E24-E17 S32-S27
     13  557  319 (S29E55 L=276)   729     79        4 ( 519/ 291- 598/ 353)   4.8 E61-E49 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