Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1205 1677 (N43E07 L=126)  1040    201        1 (1165/1599-1259/1750) -34.7 E13-W00 N38-N47
      2  750 1712 (N32E39 L= 94)   405     82        0 ( 729/1672- 774/1742) -78.7 E40-E37 N29-N34
      3  505 1492 (N12E46 L= 88)  1153    285        4 ( 471/1387- 553/1597) -55.3 E52-E42 N05-N18
      4  845 1550 (N24E25 L=108)   288     53        1 ( 824/1526- 860/1583)  90.0 E26-E23 N21-N25
      5  581 1499 (N14E40 L= 93)   276     60        0 ( 566/1467- 608/1519)  90.0 E41-E38 N12-N16
      6  767 1444 (N15E26 L=107)   359     98        1 ( 754/1398- 787/1488) -51.3 E28-E23 N12-N17
      7  950 1387 (N16E13 L=120)   318     91        0 ( 913/1344- 973/1429)  81.9 E14-E12 N12-N19
      8  175 1248 (S08E69 L= 64)   974    230        4 ( 134/1220- 204/1279)  33.7 E76-E64 S10-S06
      9 1220 1157 (N09W08 L=141)   198     35        1 (1192/1133-1246/1181)  33.7 W06-W09 N07-N10
     10  972  847 (S14W01 L=134)   185     34        1 ( 943/ 829- 991/ 865)  26.6 W00-W02 S15-S13
     11 1723  816 (N03W51 L=184)   297     36        0 (1704/ 794-1745/ 838)  71.6 W49-W52 N01-N04
     12  638  643 (S35E16 L=117)   272     42        1 ( 619/ 620- 663/ 671) -26.6 E17-E13 S36-S33
     13 1258  314 (S40W41 L=174)  1329    299        1 (1150/ 287-1397/ 345)  14.0 W31-W51 S42-S35
  

    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