Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1286 1804 (N51W51 L=170)  1583    227        2 (1181/1759-1379/1845)  -1.8 W36-W67 N48-N52
      2 1525 1692 (N36W61 L=180)   400     52        0 (1508/1670-1551/1709) -33.7 W57-W64 N34-N37
      3 1830 1370 (N09W70 L=189)   740    104        0 (1788/1347-1868/1408)   0.0 W63-W82 N08-N10
      4 1551 1344 (N15W41 L=160)   318     74        1 (1511/1317-1578/1372) -53.1 W38-W42 N13-N17
      5  312 1318 (N35E52 L= 68)   346    106        0 ( 284/1270- 341/1354)  45.0 E54-E49 N31-N36
      6 1664 1298 (N10W48 L=167)   476    102        0 (1614/1279-1714/1328)   0.0 W43-W53 N08-N11
      7  907 1231 (N21E04 L=116)   204    111        0 ( 883/1179- 942/1269)  38.7 E05-W00 N18-N22
      8 1064 1223 (N18W06 L=125)   253    135        0 (1009/1191-1121/1240) -33.7 W02-W08 N14-N19
      9  644 1074 (N15E23 L= 96)   567    191        3 ( 596/1006- 706/1153) -59.0 E25-E19 N10-N20
     10 1828 1028 (S10W57 L=176)  2029    269        4 (1770/ 941-1870/1099)  48.8 W50-W63 S14-S05
     11 1730  995 (S09W46 L=166)  1060    183        3 (1699/ 929-1781/1064) -77.5 W44-W50 S13-S04
     12 1720  796 (S21W44 L=163)  1093    289        2 (1632/ 657-1794/ 888)  33.7 W35-W51 S28-S15
     13  707  847 (N01E22 L= 97)   259     69        1 ( 691/ 810- 726/ 877)  71.6 E23-E20 S01-N02
     14 1163  719 (S14W03 L=122)   818    251        3 (1121/ 591-1197/ 812)  69.0 W00-W06 S21-S08
     15  826  666 (S12E18 L=101)  1376    295        8 ( 736/ 572- 905/ 769) -66.8 E21-E14 S18-S04
     16  373  534 (S15E57 L= 63)  1874    385        4 ( 314/ 398- 458/ 698)  84.8 E62-E51 S25-S03
     17  919  518 (S23E16 L=103)   440     81        2 ( 895/ 471- 947/ 556)  59.0 E18-E13 S25-S20
     18 1044  429 (S32E10 L=109)   689    120        2 ( 988/ 402-1101/ 459)   7.1 E14-E06 S32-S29
     19  627  404 (S27E41 L= 78)   907     89        3 ( 589/ 353- 665/ 440)  66.8 E44-E37 S30-S23
     20 1292  268 (S52W05 L=125)   731     84        0 (1250/ 243-1327/ 299)  23.2 W01-W09 S54-S49
  

    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