Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  921 1748 (N41E17 L=111)   433     96        0 ( 891/1723- 964/1773)  21.8 E19-E13 N38-N43
      2  671 1677 (N33E34 L= 95)   387     57        1 ( 642/1659- 703/1706)  14.0 E35-E30 N31-N35
      3 1147 1545 (N28W02 L=131)   939    392        1 (1052/1481-1316/1637) -24.0 E04-W14 N25-N33
      4 1602 1258 (N15W35 L=163)   348     77        2 (1575/1223-1627/1297)  59.0 W32-W36 N12-N17
      5 1716 1220 (N14W44 L=172)   352    128        1 (1695/1166-1747/1277) -71.6 W42-W46 N11-N17
      6 1538 1126 (N06W31 L=159)  1295    369        3 (1399/ 979-1612/1264) -39.1 W20-W37 S01-N12
      7 1943 1175 (N16W71 L=200)  1185     76        2 (1920/1141-1970/1213)  32.0 W66-W80 N13-N19
      8  992 1073 (S03E02 L=126)   500    218        0 ( 903/1021-1068/1097) -12.5 E07-W02 S05-S01
      9  160  891 (S19E65 L= 64)  4545    347        8 ( 105/ 760- 202/1062)  43.4 E81-E58 S26-S08
     10   97 1003 (S12E74 L= 54)   777     74        2 (  65/ 981- 126/1030)  -4.1 E82-E68 S13-S09
     11 1427  968 (S04W25 L=153)   208     78        0 (1381/ 959-1470/ 980)  18.4 W21-W27 S05-S03
     12  351  884 (S19E44 L= 84)   928    295        0 ( 288/ 827- 404/ 959)  56.3 E50-E39 S22-S13
     13 1246  830 (S14W15 L=144)   530    265        0 (1201/ 726-1298/ 907)  90.0 W12-W18 S20-S09
     14 1808  860 (S05W56 L=184)  1008    137        4 (1754/ 810-1863/ 899) -14.0 W50-W62 S07-S03
     15 1739  728 (S14W53 L=181)  1616    243        3 (1648/ 663-1814/ 825)  68.2 W46-W61 S18-S08
     16 1543  729 (S17W37 L=165)  1072    335        3 (1397/ 669-1661/ 770)  27.9 W28-W45 S22-S13
     17 1305  679 (S23W22 L=150)   297    106        1 (1270/ 644-1353/ 719) -26.6 W18-W25 S24-S20
     18  962  646 (S29E00 L=128)   243     80        1 ( 941/ 605- 988/ 689)  90.0 E01-W01 S31-S25
     19  318  550 (S40E57 L= 72)  1866    162        3 ( 239/ 502- 387/ 590)   7.9 E76-E47 S43-S37
     20 1642  393 (S35W64 L=192)  1329    118        4 (1595/ 365-1692/ 424)   8.7 W56-W71 S37-S33
     21 1576  303 (S42W67 L=196)   575     61        1 (1560/ 266-1594/ 337) -29.1 W63-W73 S44-S39
  

    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