Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1240 1811 (N50W50 L=165)   477     86        1 (1196/1784-1280/1834)   0.0 W43-W56 N48-N50
      2  997 1526 (N37W11 L=126)  1217    313        4 ( 968/1374-1040/1652)  52.6 W05-W19 N28-N45
      3 1226 1619 (N37W31 L=146)   324     61        1 (1189/1599-1262/1635)  -9.5 W28-W34 N36-N38
      4 1438 1596 (N30W45 L=160)   561    109        1 (1391/1569-1493/1618)   0.0 W40-W50 N28-N31
      5 1598 1502 (N20W52 L=166)   330     93        0 (1548/1483-1638/1518) -39.8 W48-W54 N17-N22
      6 1644 1406 (N13W51 L=165)   309     49        0 (1620/1378-1662/1425) -76.0 W49-W52 N11-N15
      7 1072 1293 (N22W09 L=123)   623    133        2 (1014/1241-1130/1330) -60.3 W05-W11 N17-N24
      8  180 1124 (N27E64 L= 50)  1203    120        1 ( 148/1071- 205/1187)  60.3 E69-E60 N23-N30
      9 1803  826 (S24W50 L=165)  2107    330        2 (1718/ 688-1857/ 967)  45.0 W41-W57 S30-S16
     10  281  920 (N14E53 L= 62)   561    170        1 ( 237/ 853- 308/ 962)  54.5 E57-E49 N09-N16
     11  231  847 (N10E60 L= 55)   357     64        0 ( 215/ 816- 253/ 881) -63.4 E61-E57 N08-N12
     12  714  775 (S01E23 L= 91)   258    117        0 ( 701/ 720- 724/ 837)  63.4 E24-E21 S04-N02
     13 1384  745 (S17W16 L=130)   308     63        1 (1362/ 712-1421/ 772)  11.3 W13-W18 S18-S15
     14 1518  730 (S21W24 L=139)   227    110        0 (1472/ 702-1555/ 769)   8.1 W20-W27 S22-S19
     15 1078  633 (S17E05 L=109)   327    186        0 (1051/ 565-1123/ 698)  84.3 E06-E02 S22-S12
     16 1249  678 (S18W06 L=120)   282     46        1 (1214/ 660-1277/ 694) -26.6 W03-W07 S19-S16
     17 1145  633 (S18E01 L=113)   210     70        2 (1119/ 604-1172/ 664) -76.0 E02-W00 S20-S16
     18  500  449 (S18E50 L= 65)  1149    235        1 ( 404/ 412- 589/ 514)   5.4 E60-E39 S20-S14
     19 1077  334 (S38E14 L=100)  4120    670        7 ( 815/ 219-1326/ 455)   2.7 E39-W06 S42-S33
     20 1573  354 (S54W31 L=145)   449     81        0 (1539/ 326-1608/ 375)  14.0 W26-W35 S55-S52
  

    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